Genial 



Osten 


SUden 


Weiten 


6,- DM 


ÖS 50, - 


sfr 6, - 


Joyce: 


Geheimbefehle sichtbar gemacht 
Neue Schnittstelle für Steuerungen 


Viele interessante Programme 

- Tilgungsrechnung nach 

neuem Gesetz ' v* re ö e 

- Strategiespiel ' e ' e . 

'\ r ' V 


v- 


PCW JOYCE 


August 1989 


S.Jahrgang 


Großer 

Testbericht 


Umsatzsteigerung in allen Reqionpn 
1985- 1989 


(In flll I lonnn DH> 


Das Flaggschiff 
- PC 2386 im Test 


C-64 Soundchip 
am CPC 

- die neue 
Klangdimension 





































































































































































































































































































































Vier Super-Programme 
zum kleinen Preis. 


Die neue CPC-Spielebox enthält vier ausgesuchte 
TOP-Programme der Spitzenklasse. 

Da ist für jeden das Richtige dabei! 


1. Alphajet 

Lieben Sie Abenteuer und Gefahren im Weltraum? 
Dann steigen Sie in den neuentwickelten Alphajet 
und erforschen die interstellaren Sonnensysteme. 
Vielfältige Gefahren lauern auf Ihrer Mission. 
Erleben Sie mit Alphajet ein hochklassiges 
Actionspiel mit außergewöhnlicher Grafik und vielen 
tollen Effekten. 


2. Telefomania 

Man schreibt das Jahr 1992. Das sogenannte 
Datenzeitalter hat begonnen. Alles kann per 
Datenübertra¬ 
gung von zu 
Hause aus er¬ 
ledigt werden. 

Das Problem: 

Einige 
Gebiete 
wurden bei 
der Ver¬ 
netzung 
schlichtweg 
vergessen. 

Ihre Aufgabe 
besteht nun darin, als Einsatzleiter vor Ort diese 
Vernetzung vorzunehmen. Verhandeln Sie also 
direkt mit den Hausbesitzern über Tarife und 
Anschlußmöglichkeiten. Gutes Gespür ist hier 
gefragt, denn nicht jeder will auch an das Datennetz 
angeschlossen werden. Mit Telefomania erwartet Sie 
eine völlig neue Spielidee, die auch Sie begeistern 
wird. 

Für alle CPCs nur als 3“-Diskette 
Best.-Nr.: 1012 



39,- DM (unverbindliche Preisemptehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 

Inland: 

Einzelpreis 
zzgl. Versandkosten 

39,- DM 
4,- DM 

Ausland: 

Einzelpreis 
zzgl. Versandkosten 

39,- DM 
6,- DM 

Endpreis 

43,- DM 

Endpreis 

45,- DM 


DMV-Verlag ■ Postfach 250 ■ 


3. Kampf den Insekten 

Übernehmen Sie die Rolle eines berühmten 
Gärtners. Ihre Aufgabe besteht in der behutsamen 
Pflege des weltschönsten und mehrfach 
preisgekrönten Gartens von Lord CPC. Erschwert 
wird dies durch verschiedenartige Insekten, die 
immer wieder,an Ihren herrlichen Pflanzen nagen 
und diese zerstören. Durch gezielten Einsatz von 
Dünger und Sprays (ohne Treibgas) können Sie den 
unliebsamen Zeitgenossen zu Leibe rücken. Ein 
erlebnisreiches Geschicklichkeitsspiel für die ganze 
Familie mit vielen Überraschungen erwartet Sie. 


4. Funbouncer 



Ihr bester Freund wurde vom bösen Zauberer 
entführt. Mutig und stark, wie Sie nun einmal sind, 
machen Sie 
sich sofort auf 
die Suche 
nach Ihrem 
verschwunde¬ 
nen Kumpan. 

Als Sie das 
Schloß des 
Zauberers 
erreichen, 
werden Sie 
und Ihr 
Freund in 

einen feuerroten Ball verwandelt. In dieser Gestalt 
müssen Sie nun den geheimen Ausgang des 
Gewölbes finden, um den Fluch zu verlieren. Doch 
Vorsicht: Vielfältige Gefahren wie zum Beispiel 
scharfe Felskanten oder rostige Nägel machen 
Ihnen neben anderen Zeitgenossen, die ebenfalls 
verzaubert wurden, das Leben schwer. Funbouncer 
ist ein schnelles und farbenfrohes Actionspiel mit 
vielen Levels und eigenem Bild-Construction-Set. 


Bitte benutzen Sie die Bestellkarte. 

3440 Eschwege 

Modienveriag 
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Editorial i 



Liebe Leserin, lieber Leser, 

seit der letzten Ausgabe der PC Amstrad International hat sich einiges im 
Heft und im Computerbereich getan. 

Als erstes werden Sie sicher bemerkt haben, daß das Inhaltsverzeichnis 
klarer und übersichtlicher geworden ist. Nun können Sie auf Anhieb den 
Artikel finden, der Sie besonders interessiert. 

Aufmachung einzelner Beiträge haben eine andere, wie wir finden, 
ansprechendere Form erhalten. Somit haben Sie noch mehr Spaß beim Lesen 
der Artikel. 

Eine zweite Änderung hat sich bei Amstrad getan. Dort wurden, anläßlich 
geänderten Kauf verhaltens, neue Überlegungen zum Verkauf in Angriff 
genommen. Diese neuen Aussichten konnten wir bei einem Presse-Meeting 
erfahren. 

Von jeher war es so, daß Amstrad nur komplett ausgestattete Computer 
aus geliefert hat, das heißt inklusive Software und Monitor. Man konnte also 
getrost loslegen und probieren, ohne nachher feststellen zu müssen, daß für 
den Betrieb doch noch etwas anderes gebraucht wird. 

Die Überlegungen zu den neuen Konzepten kamen durch die vielfachen 
Kundenwünsche, die an Amstrad herangetragen wurden. 

Die Basis: eine Grundkonfiguration, das heißt der reine Computer ohne 
Zubehör, aber mit der nötigen Betriebssoftware. Der Kunde kann sich nun 
nach Belieben seine eigene Konfiguration zusammenstellen , die er für seine 
speziellen Bedürfnisse benötigt. 

Die neue Reihe wird sich PC 1000 nennen und basiert auf der PC-2000- 
Serie. Sprich, Gehäuse und Innenleben entsprechen dem PC 2086. 

Angeboten werden dazu Monitore, Streamer, Festplatten und andere 
unentbehrliche Peripheriegeräte. Die Speichermedien sollen übrigens von 
einer Speichergröße von 20 MByte bis zur gigantischen 360-MByte-Archi- 
vierung reichen. 

Wir wünschen Ihnen aber weiterhin viel Spaß mit dem “alten" Computer und 
unserer aktuellen Ausgabe der PC Amstrad International. 

'Cfufr j)as/fe r 

Claus Daschner, 

Redaktion PC Amstrad 
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[—Aktuell 


Neuer Vertriebsleiter bei Amstrad 


upLink - Verbindung zwischen CPC und PC 





Franz Simais ist neuer Ver¬ 
triebsleiter Systeme bei der Am- 
strad GmbH in Neu Isenburg. 
Er ist seit Vorstellung der ersten 
Personal Computer in der Bran¬ 
che tätig. Zuvor war Franz Si¬ 
mais Vertriebsleiter Fachhandel 
bei Zenith-Data-Systems und 


Verkaufsleiter Deutschland bei 
Olivetti. Er ist nun bei Amstrad 
zuständig für die Vermarktung 
der professionellen Personal 
Computer im Fachhandel. 

Info: Amstrad GmbH 
Robert-Koch-Str.5 
D-6078 Neu-Isenburg 



Fehlerkorrektur vom PC-Programm 


Langenscheidt, bekannt durch 
seine vielfältigen Sprach- und 
Wörterbücher, bietet jetzt ein 
Korrekturprogramm für unter 
Textverarbeitungsprogrammen 
erstellte Texten an. 

'KORREKT’, so der Name des 
Programms, enthält einen aus¬ 
gewählten Wortschatz von 
120.000 Wörtern, deren Ge¬ 
brauchshäufigkeit berücksich¬ 
tigt wurde. Zudem sind alle 
möglichen Vorsilben und En¬ 
dungen mit eingebunden. Zu 
untersuchende Texte werden mit 
dem enthaltenen Wortschatz 
überprüft. 'KORREKT’ simu¬ 
liert eine Wordstar- oder Word- 
Benutzeroberfläche, ist damit 


also den meistverbreitetsten 
Textverarbeitungsprogrammen 
angeglichen und somit schnell 
erlernbar. Besitzer anderer Text¬ 
verarbeitungen werden mit ei¬ 
nem ausführlichen deutschen 
Handbuch bedacht, das die 
Funktionen des Programms dar¬ 
stellt. 'KORREKT’ ist im Com¬ 
puterfachhandel zu finden, ver¬ 
trieben wird das Programm vom 
Markt&Technik-Verlag. Der 
Preis des Programmes beträgt 
149,- DM. 

Info: Langenscheidt KG 
Neusser Str.3 
Postfach 40 ü 20 
D-8000 München 40 
Tel.:089/36096-0 


dBOOST, der Beschleuniger 


Von ISP Software gibt es 
dBOOST 2.0, ein Beschleuni¬ 
gungsprogramm für dBASE- 
Programme. Die unter Quicksil- 
ver, Clipper oder FoxBASE+ 
compilierten Programme wer¬ 
den von dBOOST ohne Eingriff 
des Anwenders noch wesentlich 
schneller gemacht. Dabei brau¬ 
chen weder Änderungen im Pro¬ 
gramm noch in den Dateien vor¬ 
genommen werden. Die Doku¬ 
mentation ist in Deutsch, die In¬ 


stallation einfach gehalten, und 
getestet wurde das Programm 
laut Vertreiber mit vielen Pro¬ 
dukten. 

Zum Betrieb des Programmes 
genügt die MS-DOS-Version 2.0 
und höhere. Der Preis des Pro¬ 
grammes beträgt 299,— DM. 
Info: ISP Software 
Handelsges.mbH 
Reinhold-Frank-Str.l 
D-7500 Karlsruhe l 
Tel.: 0721/845092 


Die Conception GmbH bietet 
seit neuestem ein Modul an, 
welches Daten über die parallele 
Schnittstelle des PC oder AT mit 
dazugehörender Software von 
anderen Computern, z.B. CPC 
oder PCW, einliest. Ein mitge¬ 
liefertes Netzteil liefert den nöti¬ 


gen Strom. Der Preis des Mo¬ 
duls inklusive Netzteil, deut¬ 
scher Anleitung und Software 
beträgt 168,— DM. 

Info: Conception GmbH 
Hubertusweg 14 
2000 Hamburg 61 
Tel.: 040/584503 



Einen besonderen Viruskiller 
bietet der EDV-Dienst Münch¬ 
rath, Anbieter von Public Do¬ 
main und Shareware, an: Eine 
Anti-Plagegeister-Waffe in Form 
einer Diskette, kurz genannt 
Fliegenklatsche. Der Computer¬ 


besitzer kann jetzt nicht nur Vi¬ 
ren von seiner Festplatte jagen, 
sondern auch Störenfriede von 
seinem Computergehäuse. 

Info: EDV-Dienst Münchrath 
D-5177 Titz 5 
Tel.: 02463-3366 
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Btx-Decoder für PCW-Computer 


Neues PCW-(JOYCE-) Buch vom DMV-Verlag 


Wer mehr RAM-Speicher in sei¬ 
nem PC benötigt als die vom Be¬ 
triebssystem her möglichen 640 
kByte, war bisher auf den Kauf 
von RAM-Chips für eventuell 
vorhandenen Platz auf der 
Häuptplatine oder auf externe 
RAM-Karten angewiesen. 

Von der Firma Kienitz & Grabis 
gibt es jetzt eine recht preiswerte 
Alternative. ’TC!Power’ heißt 
ein neues Programm, welches 


Teile einer vorhandenen Fest¬ 
platte als Pseudo-RAM-Disk or¬ 
ganisiert. Lieferung mit engli¬ 
scher Anleitung und automati¬ 
scher Installation. 

'TC!Power’ kostet 275,— DM. 

Info: Kienitz & Grabis 
Soft- und Hardware-Versand 
Schulstr.18 
D-8913 Schondorf 
Tel.: 08192/628 


Daß der JOYCE eines der er¬ 
folgreichsten Textsysteme wur¬ 
de, verdankt er wohl am meisten 
der Tatsache, daß er auch ein 
vollwertiger Computer ist. 

Leider ist diese Tatsache immer 
noch bei vielen JOYCE-Besit- 
zern ziemlich unbekannt. Die 
Autoren Norbert Kröger, Win¬ 
fried Kersting und Bernd Graß¬ 
hoff haben es sich zur Aufgabe 
gemacht, den JOYCE als das 
vorzustellen, was er eigentlich 
ist, nämlich als universellen 
Computer. Dabei werden die 
möglichen Computersprachen, 
wie Mallard BASIC oder Logo 
unter die Lupe genommen. Tür- 
bo-Pascal- und C-Compiler 
werden dem Leser als Alternati¬ 


ve vorgestellt. Eine Menge Tips 
und Tricks rund ums Program¬ 
mieren und - ganz wichtig — 
die Hardware vom und für den 
JOYCE, wozu auch ein Sprach¬ 
synthesizer gehört, werden be¬ 
schrieben. Mögliche Hardware- 
Erweiterungen werden von 
Grund auf erklärt. 

Das Buch 'JOYCE — mehr als 
ein Textsystem’ kostet 69,— 
DM, zusätzlich sind eine Pro¬ 
grammdiskette (30,— DM) und 
eine Leerplatine (49,— DM) 
über die dein Buch beiliegenden 
Bestellkarten erhältlich. 

Info: DMV-Verlag 
Postfach 250 
3440 Eschwege 
Tel.: 05651/8009-0 


Die Firma Wiedmann aus Isma¬ 
ning bei München bietet dem¬ 
nächst einen Btx-Decoder für 
alle PCW-(Joyce-) Computer an. 
Der Decoder wird mit dazuge¬ 
höriger Software ausgeliefert, 
kann an jedem PCW ange¬ 
schlossen werden (8256, 8512, 
9512) und unterstützt eventuell 
vorhandene Festplattensysteme. 
Die Bedien-Software ist kom¬ 
plett in Deutsch gehalten, es 
handelt sich dabei um eine 
Eigenentwicklung der Firma 


Wiedmann. Betrieben werden 
kann der Btx-Decoder am Post- 
Btx-Modem DBT 03 sowie an Btx- 
fähigen Akkustikkopplern oder 
Hayes- und kompatiblen, zuge¬ 
lassenen Modems. Der Preis für 
das Btx-Paket Decoder und Soft¬ 
ware soll 598,50 DM betragen. 

Info: Wiedmann 
Unternehmensberatung & Han¬ 
del mit Technologieprodukten 
Korbiniansplatz 2 
D-8045 Ismaning bei München 
Tel.: 089/965029 


Pseudo-RAM auf der Festplatte 


Mouse Trak für PS/2-Modelle 


DTP für jedermann 


Mit ’Fontasy 3’ lassen sich Pro¬ 
spekte, Werbeseiten oder durch 
grafische Elemente untermalte 
Textseiten erzeugen. 

Das Programm enthält 33 
Schriften und 20 Clip-Arts (Bil¬ 
der). Die Schriften können 
wahlweise breit, hoch, quer, in¬ 
vers, auf den Kopf gestellt oder 
Spiegel verkehrt dargestellt wer¬ 


den. Zum Programm gehört ein 
integrierter Texteditor, der eine 
leichte Texterfassung möglich 
macht. 

’Fontasy 3’ ist für 299,- DM zu 
beziehen. 

Info: EDV-BV GmbH 
Wernberger Str.44 
D-8473 Pfreimd 
Tel. .09606/1411 


ITAC-Systems bietet jetzt auch 
eine PS/2-Version des Mouse- 
Traks an sowie ein Bus-Modell 
für AT-Computer (z.B. die Am- 
strad PC 2286). 

Die Mouse-Traks sind als Zwei¬ 
oder Drei-Tasten-Versionen er¬ 
hältlich, wobei die tatsächliche 
Funktion der Tasten vom Benut¬ 
zer bestimmt werden kann. Die 
Maus-Traks sind kompatibel mit 
gängigen Maustreibern und ha¬ 
ben eine Geschwindigkeits- und 


Auflösungsschaltung für präzi¬ 
ses Arbeiten mit Grafikpro¬ 
grammen. Der Preis für das 
PS/2-Mouse-Port-Modell M-5 
(drei Tasten) beträgt 395,- DM, 
für das Modell M-5 Bus für 
XT/AT-Computer mit Bus-Karte 
447,- DM. 

Info: The Chameleon Group 
Joe Williams GbR 
Graf-Adolf-Str. 87 
4000 Düsseldorf 1 
Tel.: 0211 / 379057/56/55 
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[—Briefe 


An unsere Leser 

Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten. Pro¬ 
grammierproblemen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir 
bemüht, alle Leserfragen zu 
beantworten. Doch haben 
Sie bitte Verständnis, daß wir 
nicht alle eingehenden Briefe 
persönlich beantworten kön¬ 
nen. Oft erreichen uns meh¬ 
rere Briefe zum gleichen 
Thema, einer davon wird 
dann stellvertretend für alle 
in unserer Zeitschrift beant- 
wortet. ihre PC-Redaktion 


Neue Durchwählnummern 
für die Hotline 

Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er¬ 
reichen. Jeden Mittwoch von 
17.00 bis 20.00 Uhr stehen Ih¬ 
nen zur Verfügung: 

Claus Daschner (CPC) 

rs (0 56 51) 80 09 -16 


Jürgen Borngießer 
(CPC + PC) 
o(0 56 51)80 09 


17 


Ralf Schößler (PCW) 

o(0 56 51)80 09 -18 


PS: Die Redaktion behält sich vor, Leserzuschriften in gekürzter 
Form wiederzugeben. 


Sprechi aus Sonderheft 
7/88/89 

Manche Leser haben das 
Programm (Sprechi. Bas) 
aus dem Sonderheft 7 abge¬ 
tippt. Sie mußten feststellen, 
daß das Programm nicht auf 
ihren CPC 464 läuft. 

Der Fehler liegt in Zeile 
1500. Der ganze Block (Teil 
2) im Data-Meer ist um vier 
Byte verschoben. 

Die Zeile 1500 in “Spre¬ 
chi. Bas“ muß lauten: 

1500 DATA 35068,515 
Zusammenfassung der Feh¬ 
ler in Sprechi. Bas (Seite 
132) 

Zeile 80: richtig z=350 

falsch z= 102 

Zeile 90, 190, 220: 

richtig: z=z-P 10 

falsch: z=z+2 

Zeile 1500: DATA 35068, 

515 

Elmar Leinen, 
Braunschweig 

Wir bitten den Fehler zu ent¬ 
schuldigen, da das Listing 
von uns “RENUMeriert“ 
wurde, ohne dementspre¬ 
chende Änderungen in den 
“Überwachungszeilen“. 

Red. 

Leseranfrage zum achten 
Bit aus Heft 5/89 

Bezüglich der Leseranfrage 
aus Heft 5/89 über die Instal¬ 
lation des achten Bit unter 


CP/M plus (8-Bit-Centro- 
nics-Schnittstelle am CPC 
6128) kann ich Ihnen die von 
mir gefundene Lösung anbie¬ 
ten. Mit dem unten aufge¬ 
führten Programm wird ein 
File “BITS+. COM “ auf der 
Diskette erzeugt, welches 
nach dem Booten von CP/M 
plus gestartet werden muß. 
Das Programm lenkt die 
Druckerausgabe über eine 
Hilfsroutine um, die das ach¬ 
te Bit im Bedarfsfall an den 
Druckerport ausgibt. Der 
TPA wird dabei nicht verän¬ 
dert und die Routine kann 
nicht von eigenen Program¬ 
men überschrieben werden. 
Das Programm läuft bei mir 
schon längere Zeit ohne Be¬ 
anstandung auf meinem CPC 
6128 und angeschlossenem 
DMP 2000. 

Unter BASIC und CP/M 2.2 
tritt bei der Arbeit mit dem 
achten Bit allerdings ein 
Fehler auf. Die Zeichen &A0 
(160) bis &AF (175) werden 
als Grafikzeichen fehlerhaft 
ausgedruckt. 

10 rem Programm erzeugt ein 
File BIT8+.C0M 
20 rem Damit wird unter CP/M+ 
das achte Bit der CENTR0NICS- 
Schnittstelle installiert 
30 rem 

40 rem Hardware-Umbau ist Vor¬ 
aussetzung! !! 

50 rem 

60 0PEN0UT u bit8+.com" 

70 F0R i=l to 100 
80 READ b$:b=VAL (“8c“+b$) 

90 PRINT #9,CHR$(b); 


100 NEXT 

110 PRINT "BIT8+.C0M wird er¬ 
zeugt" 

120 CL0SE0UT:END 

130 DATA 21,54,01,11,75, 

f6,01,10,00,ed,b0,21,75, 

f6,22,10 

140DATA fc,cd,17,01,c3, 

00,00,21,29,01,7e,cb,7f, 
cO,5f,e5 

150 DATA Oe,02,cd,05,00, 

el,23,18,fl,0c,38,2d,42, 

69,74,20 

160 DATA 44,72,75,63,6b,65, 

72,73,63,68,6e,69,74,74, 

73.74 

170 DATA 65,6c,6c,65,20, 
69,6e,73 , 74,61,6c,6c,69, 

65.72.74 

180 DATA 20,21,0a,8d,c5, 
cb,79,01,20,f6,20,02,Oe, 00, 
ed,49 

190 DATA cl,c3,be,fd 

Peter Stöbe, 
Leipzig (DDR) 

Vielen Dank für Ihre Hilfe. 
Wir sind sicher, daß vielen 
Lesern damit geholfen ist. 

Red. 

Betrifft: Copyshop und 
Drucker 

Ich besitze einen CPC 664 
sowie einen Juki 5520 Prin¬ 
ter. Leider ist es mir mit dem 
Programm “ COPYSHOP “ 
noch nicht gelungen, norma¬ 
le Bilder auf den Drucker zu 
bringen. Auch mit anderen 
Programmen habe ich dies¬ 
bezügliche Schwierigkeiten. 
Die kommen nur in Schwarz¬ 
weiß auf den Drucker und in 
einer unmöglichen Darstel¬ 
lung (Teilweise wird nur jede 
zweite Zeile gedruckt). 

Peter Wicher, 
Waiblingen 

Viele Programme, viele 
Drucker. Gemeint ist damit 
die Vielzahl und Variationen 
der Drucker. 

Das Programm “COPY¬ 
SHOP“ ist nur in der Lage 
Grafiken auszudrucken, 
wenn Sie einen 9-Nadel- 
Drucker besitzen. Weiterhin 
kann kein farbiges Bild aus¬ 
gedruckt werden, da dieses 
Programm einfach nicht 
dazu gedacht ist. Außerdem 
sind Farbdrucker wesentlich 
komplizierter in ihrer An¬ 
steuerung, da sie keinen be¬ 
stimmten Standard besitzen, 
wie z.B. EPSON. 

Red. 


Micro-Design und 
Seikosha SP 1000 

Aufgrund einer Anzeige 
kaufte ich mir das Programm 
Micro-Design. Nach der 
praktischen Beschäftigung 
mit dem Programm konnte 
ich fest st eilen, daß es sehr 
umfangreich und interessant 
ist. Nach intensiver Einar¬ 
beitung ist es auch bediener- 
freundlich. 

Nur als ich meinen Drucker 
dazu bewegen wollte, Grafi¬ 
ken auszudrucken, kam au¬ 
ßer wirren Grafikzeichen 
kein anständiges Bild her¬ 
aus. Alle meine Anpassungs¬ 
versuche schlugen fehl. Mir 
ist bekannt, daß beim SP 
1000 die Steuercodes ESC L 
(Grafikdruck doppelte Dich¬ 
te) der Wert nicht mit 256, 
sondern mit 128 multiplizert 
wird. Können Sie mir helfen ? 

Ernst Siedenburg, 
Oyten 1 

Leider müssen wir passen. 
Als erstes sollte man sich an 
den Händler wenden, der 
weiß vielleicht Rat. 

Sollte der Händler auch nicht 
weiterhelfen können, so 
kann Ihnen vielleicht einer 
der Leser Unterstützung 
geben. 

Also, liebe Leser, haben Sie 
das Problem gelöst, dann 
senden Sie uns bitte eine Lö¬ 
sung, die wir weiterreichen 
können. 

Red. 

Anschrift von ACW 

Ich habe mit Interesse den 
Bericht über das Zweit lauf - 
werk der Firma “A CW“ für 
den CPC gelesen. Allerdings 
habe ich eine Preisangabe 
und die Anschrift vermißt. 

Steffen Herrmann, 
Nürnberg 

Wie wahr, wie wahr. Wir 
haben tatsächlich in diesem 
Bericht Bezugsquelle und 
Preis vergessen. Deswegen 
gleich die Anschrift und 
Preis. 

ACW-Soft 
Breite Str. 16 
5300 Bonn 1 
Preis: zirka 270 DM 

Red. 
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Zum Leserbrief des Herrn 
Huck, Heft 5/89 

Ich besitze auch eine RE- 
MEX-Floppy (5 1/4“, bei 
Conrad Electronic, Mün¬ 
chen). Allerdings weiß ich 
nicht, ob es eine RFD 480 
ist, und hoffe, daß ich Herrn 
Huck trotzdem helfen kann. 

Stromansch luß: 

Äußerer Stift: +5V etwa 
500mA 

Beide mittleren Stifte: Masse 
(minus) 

Innerer Stift: + 12Vetwa 2A. 

Der Bus ist ein Shugart-Bus 
und somit an den CPC 6128 
anschließbar. Da der Shu¬ 
gart-Bus 34polig ist und der 
Disc-Drive-2-Anschluß des 
CPC 36polig ist (im Hand¬ 
buch bloß 34polig beschrie¬ 
ben), brauchen die inneren 
zwei Anschlüsse (Pin 35 und 
36) am CPC nicht ange¬ 
schlossen werden. Pin 34 
(Laufwerk) kommt an Pin 1 
(CPC), Pin 33 an Pin 2 
(CPC), usw. 

Bei meinem Laufwerk waren 
die Anschlüsse numeriert. 
Bei Jumper J1 wird die 
Brücke aufDSl aufgesteckt. 

Bei Jumper J2 wird die 
Brücke auf A aufgesteckt. 
Eine vielleicht vorhandene 
dritte Brücke muß nicht auf¬ 
gesteckt werden. Nach dem 
Einschalten gibt man einen 
CAT-Befehl ein, um den Mo¬ 
tor zu starten (keine Diskette 
einlegen). Falls die mit 50 
gekennzeichneten Striche auf 
der sich drehenden Scheibe 
nicht stehen (funktioniert nur 
bei Kunstlicht), muß der 
Regler auf der unteren Plati¬ 
ne neu eingestellt werden. 
Ergeben sich nach oder wäh¬ 
rend des Formatierens noch 
Lese- oder Schreibfehler, so 
muß mit den zwei Reglern auf 
der oberen Platine experi¬ 
mentiert werden, bis es funk¬ 
tioniert. 

Um die zweite Seite der Dis¬ 
kette benutzen zu können, 
schneidet man Pin 32 am 
Laufwerk ab. Diesen verbin¬ 
det man mit einem Schalter, 
der wiederum mit Masse ver¬ 
bunden wird (Pin 32 —Seite 1 
selekt). Mit dem Schalter 
kann man dann zwischen den 
Seiten wählen. 


Anmerkung: Pin 1 (Lauf¬ 
werk) liegt am Steppermotor. 

Wolf gang Heidrich, 
Bad Reichenhall 

Na bitte, wer sagt es denn. In 
einer großen Gemeinschaft 
findet sich immer jemand, 
der eine Antwort auf ein Pro¬ 
blem hat. In diesem Falle 
hoffen wir, daß das Problem 
gelöst ist. Wir danken Herrn 
Heidrich für diese Lösung 
und hoffen, auch anderen 
Lesern geholfen zu haben. 

Red. 

Ergänzung zu Schlag 

In der Anleitung zu dem Pro¬ 
gramm Schlag, welches in 
der PCI 6/89 erschienen ist, 
wird beschrieben, daß das 
Programm die Bildschirm¬ 
maske nicht zerstört. Dies 
stimmt jedoch nicht ganz, da 
der Bildschirminhalt nach 
oben weggescrollt wird. 
Folgende Ergänzung kann 
dies verhindern: 

Im Datalader: 

100 DATA 97C4,09,32,5A,BB, 
CD,9B,BC,3E,6DB2 [2312] 

110 DATA 97CC,CF,32,5A,BB, 

Dl,El, 13,06,63E9 [1617] 

Im Assemblerlisting: 

220 ' ld a,201 [921] 

230 ' ld (&bb5a),a [1071] 

250 ' ld a,207 [923] 

260 ' ld (&bb5a),a [1071] 

Der Fehler im Programm lag 
darin, daß es nur die Zei¬ 
chendarstellung unterdrückt 
(Leerzeichen usw.), also 
“unsichtbare Zeichen“ wur¬ 
den dargestellt. Die Korrek¬ 
tur aber sperrt die Zeichen¬ 
ausgabe über &BB5A. 

Marc Stiegemeyer, 
Bramsche 

Memory Full 

Bei der Entwicklung eines 
Programms ist folgendes 
Problem aufgetreten: 

Als ich das Programm auf 
Diskette abspeichern wollte, 
gab der Computer mir einen 
MEMORY FULL aus. Erst 
nach Eingabe des Befehls 
CLEAR gelang es mir, das 
Programm abzuspeichern. 
Nun habe ich das Problem, 
daß der CPC 464 es nicht 
mehr einladen kann. Bei 
meinen Versuchen gibt mir 
der CPC immer einen ME¬ 
MORY FULL aus. Was kann 
ich tun, um das 38 kByte 
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lange Programm einzu¬ 
laden ? 

Michael Bergmeier 

Um das Programm wieder 
mit LOAD einladen zu kön¬ 
nen, geben Sie OPEN- 
OUT“X“: MEMORY HI- 
MEM-1 ein und laden das 
Programm wie gewohnt mit 
LOAD ein. 

Red. 

NSWEEP 

In der Beschreibung des Pu- 
blic-Domain-Programms 
NSWEEP in der Ausgabe 
6/89 hat sich ein kleiner Feh¬ 
ler eingeschlichen. Durch 
das Drücken der Taste 
<A> wird bei einer mar¬ 
kierten Datei nicht — wie im 
Text beschrieben — die Mar¬ 
kierung gelöscht; dies ge¬ 
schieht durch das Betätigen 
der Taste <U>. Die Taste 
<A> hat eine vollkommen 
andere Funktion. Dies soll 
an folgendem Beispiel be¬ 
schrieben werden: 

Wollen Sie alle Dateien mit 
der Extension .DOC von dem 
Userbereich 0 in den User¬ 
bereich 1 kopieren und nach¬ 
her die .DOC-Dateien im 
Userbereich löschen, sollten 
Sie wie folgt verfahren: 
Markieren Sie alle .DOC- 
Dateien einzeln mit der 
Funktion < T> oder per 
Wildcard *.DOC. Nun ko¬ 
pieren Sie diese in den User¬ 
bereich 1. Nun werden Sie 
feststellen, daß alle .DOC- 
Dateien mit einem Gatter 
(#) versehen sind. Um sie 
nun zu löschen, haben Sie die 
Wahl, ob Sie jede einzeln 
wieder markieren oder ob 
Sie die Dateien mit der Funk¬ 
tion <A> erneut markieren 
und gemeinsam löschen. 
Bei der Funktion <A> ist 
folgendes zu beachten: 

(1) Der Befehl <A> - RE- 
TAG FILES funktioniert nur, 
wenn zuvor Dateien markiert 
und kopiert wurden. 

(2) Die Pseudo-Markierung 
wird aufgehoben , sobald das 
Verzeichnis verlassen wird. 

Robert Schaper, 
Aachen 

Achtes Bit unter CP/M 

Das Problem des Herrn Ma- 
lewski, welches er in der Ru- 


AMSTRAD - Computer 
Software + Zubehör 


AMSTRAD-Computer auf Anfrage 

JOYCE-Zubehör: 


Farbband 8256/8512 

12,90 

Papierführung 

29,50 

3“-Markendisketten 10 St. 

59,90 

Farbband 9512 

17,95 

Typenräder 9512 

25,00 

Typenräder SD15 

25,00 

Diskettenbox f. 12 Disk. 

9,95 

Diskettenbox f. 40 Disk. 

14,95 

Diskettenbox f. 80 Disk. 

18,95 

PC-Zubehör: 


5 1/4“-Disketten 2D 10 Stück 

6,95 

31/2“-Disketten 2DD 10 Stück 25,00 

20-MB-Filecard 

698,00 

Druckerkabel par. 1,8 m 

17,70 

STAR LC10 (deutsch) 

570,00 

AMSTRAD LQ3500 

780,00 

Druckerständer 

29,95 

Farbband LC10 

15,95 

Farbband NEC P 2200 

16,95 

Abdeckhaube Tastatur 1512/1640 

16,95 

Abdeckhaube Monitor 1512/1640 

39,50 

Genius Dyna Mouse 

135,00 

Laufwerk 3 1/2“ 

220,00 

Joy-Stick 

29,95 

Haftetiketten endlos 100 Stück 

8,95 

TextMaker 2.0 

248,00 

PC 1512 1 LW/Mono 1.170,00 

PC 1640 2 LW/Mono 1.798,00 

24-N.-Drucker LQ5000 1.150,00 

Weitere Preise au( Anfrage! 

Preisliste gegen Rückporto. 

Lieferung per Nachnahme oder Voraus¬ 

kasse (Versandkostenpauschale DM 11,40 

pro Paket). 


Kosmalla & Partner 

Datenverarbeitung GmbH 

Bliesstr. 5, 6700 Ludwigshafen 

Tel.:0621-51 9749 



Eine Bitte 
an unsere 
Abonnenten 


Vermerken Sie bei 
Schriftverkehr und 
Zahlungen neben der 
vollständigen 
Anschrift stets Ihre 
Abo-Nummer. 


Sie vermeiden damit 
unnötige Verzögerun¬ 
gen bei der 
Bearbeitung Ihres 
Abonnements. 


Vielen Dank 

Ihre DMV- 
Versandabteilung 
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brik Leserbriefe der PC Arti¬ 
st rad 5/89 vor getragen hat, 
ist schon seit einiger Zeit von 
mir gelöst. Das Programm 
ist für 25, - DM auf Diskette 
mit ausführlicher Anleitung 
bei mir erhältlich. Des weite¬ 
ren gibt es noch eine BAS1C- 
Anpassung. 

Dirk Steinkamp 
Gabelsbergerstr. 9 
4600 Dortmund 1 

Anpassungsprobleme 

Das Programm Schildchen¬ 
drucker, welches in der PC 
Amstrad 5/89 veröffentlicht 
wurde, funktioniert leider 
nicht mit meinem Drucker. 
Es handelt sich hierbei um 
einen DMP 2160. 

Haben Sie vielleicht eine An¬ 
passung für meinen 
Drucker? 

Andreas Jurgeit 
Ilsede 

Leider liegt uns für diesen 
Drucker noch keine Anpas¬ 
sung vor. Sollte einer unse¬ 
rer Leser diese Anpassung 
jedoch schon vorgenommen 
haben, möchten wir Ihn bit¬ 
ten, uns diese zuzusenden, 
damit alle Leser in diesen 
Genuß kommen können. 

Red. 

Special Offers 

Ich besitze eine CPC 464 mit 
Diskettenstation DDI-I und 
dem Drucker NLQ 401. Des 
weiteren befindet sich das 
Emulatorprogramm in mei¬ 
nem Besitz. 

Da ich an dem Programm 
Composer Star interessiert 
bin, möchte ich Sie bitten, 
mir mitzuteilen, ob dieses 
Programm mit dem Emula¬ 
torprogramm auch auf mei¬ 
nem CPC 464 lauffähig ist. 

Günter Blodkamp 
Heede 

Leider ist es trotz des Emula¬ 
tors nicht möglich, den 
Composer Star auf dem CPC 
464 laufen zu lassen, weil di¬ 
rekt ins ROM gesprungen 
wird. 

Red. 

CPC als Fernseher 

Ich bin seit drei Jahren Besit¬ 
zer eines CPC 6128 und ei¬ 
nes DMP 2160. Jetzt habe 


ich davon gelesen, daß es 
möglich ist, den Monitor des 
CPC als Farbfernseher zu 
nutzen. 

Stimmt dies, und kann ich 
meinen CPC als Fernseher 
verwenden ? Wo kann ich ein 
entsprechendes Modul be¬ 
kommen , und wie teuer ist es ? 

Martin Tentlewitz 
Wolfsburg 

Das Modul können Sie zu ei¬ 
nem Preis von 199,— DM 
bei der Firma Weeske, die in 
unserem Heft inseriert, be¬ 
ziehen. 

Des weiteren können Sie 
auch bei der Firma Amstrad 
bestellen. 

Red. 

8-Bit-Umbau 

Ich möchte bei meinen CPC 
6128 in Verbindung mit dem 
Drucker Epson LX 800 den 
Umbau auf die 8-Bit-Centro- 
nics-Schnittstelle vorneh¬ 
men. Können Sie mir mittei- 
len, in welchem Heft dies be¬ 
schrieben wurde? 

Klaus-Jürgen Regenauer, 
Schifferstadt 

Der Umbau wurde in der 
Ausgabe 8/86 beschrieben. 

Red. 

ConText und Seikosha 
SI-80 IP 

Vor kurzen habe ich mir ei¬ 
nen neuen Drucker zugelegt. 
Jetzt habe ich jedoch Schwie¬ 
rigkeiten mit ConText in Ver¬ 
bindung mit diesem. Bei mei¬ 
nem alten Drucker lief Con¬ 
Text (mit vielen Erweiterun¬ 
gen versehen) ohne Proble¬ 
me. Bei meinem neuen 
Drucker druckt er jedoch im¬ 
mer eine Leerzeile, bevor er 
mit der nächsten Zeile be¬ 
ginnt. Haben Sie vielleicht 
eine Anpassung an den 
SP-80 vorliegen ? 

Henning Lühken 
Varel 

Leider besitzen wir für die¬ 
sen Drucker noch keine An¬ 
passung des ConText-Pro- 
gramms, geben Ihre Anfrage 
jedoch an unsere Leser wei¬ 
ter, die vielleicht schon eine 
Lösung gefunden haben. 

Red. 


FABACOM 

Kürzlich habe ich mir den 
Fast-BASIC-Compiler zuge¬ 
legt. Als ich nun ein Pro¬ 
gramm von mir (32 kByte), 
welches ich zuvor in zwei 
Teile aufgesplittet hatte, 
compilieren wollte, funktio¬ 
nierte dies nicht. 

Ein Freund sagte mir, daß 
ich zuvor alle RSX-Befehle in 
CALLs umwandeln müsse. 
Da ich jedoch nicht weiß, 
wie dies geschehen soll, 
möchte ich Sie bitten, mir 
weiterzuhelfen. 

Achim Weichen 
Stuttgart 

In der Ausgabe 10/87 hatten 
wir einen RSX-Compiler ab¬ 
gedruckt, der die RSX-Be- 
fehle in CALLs mit Parame¬ 
tern umwandelt. 

Red. 

Software für den CPC 

Seit ich Ihr Sonderheft gese¬ 
hen habe und mir dabei auf¬ 
gefallen ist, daß Sie Kasset- 
ten-Software anbieten, wür¬ 
de ich gerne von Ihnen eine 
Liste der verfügbaren Soft¬ 
ware erhalten. Ich denke an 
17+4, Pokern, Dame usw. 
Ich hoffe, Sie können mir 
weiterhelfen. 

Eine andere Sache: Bei Ihren 
Listings treten des öfteren 
Fehlermeldungen wie “Type 
Misnuitch“ auf. Da ich erst 
seit kurzem angefangen 
habe, traue ich mich schon 
gar nicht mehr, irgendwel¬ 
che Listings abzutippen. 
Können Sie mir auch dabei 
behilflich sein? 

Ch ristine Maciejewski, 
Stenewede 

Zu der ersten Frage: 

Die Kassetten-Software, die 
Sie im Sonderheft gesehen 
haben, sind die Programme, 
die im Sonderheft enthalten 
sind. Diese bekommen Sie 
entweder auf Kassette oder 
Diskette. 

Programme wie Poker oder 
17+4 finden Sie im Sonder¬ 
heft 5/87. Aber nicht nur die¬ 
se, sondern auch viele ande¬ 
re gute Programme, die man 
oft braucht, sind dort zu 
finden. 

Zu Ihrer zweiten Frage: 

Die Fehlermeldung, die Sie 
bekommen, ist uns nicht un¬ 


bekannt. Der häufigste Feh¬ 
ler ist das Verwechseln von 
Buchstaben und Ziffern. Um 
Ihnen helfen zu können, fin¬ 
den Sie nun die meisten Feh¬ 
lerpunkte: 

Eine Null (0) wird oft mit 
dem kleinen O (o) verwech¬ 
selt. 

Eine Acht (8) wird oft mit 
dem Buchstaben B (b) ver¬ 
wechselt. 

Eine Eins (1) wird oft mit 
dem Buchstaben L (1) ver¬ 
wechselt. 

Sie müssen wissen, das aus 
Platzgründen hexadezimale 
Zahlen verwendet werden. 
Diese bestehen aus den Zah¬ 
len Null bis Neun (0-9) und 
den Ziffern A bis F (10 bis 
16). Die Fehlermeldung 
taucht immer in den Zeilen 
auf, wo eine FOR-NEXT- 
Anweisung steht. Der Fehler 
steckt aber nicht in diesen 
Zeilen, sondern in den Data- 
Zeilen. Und genau in diesen 
müssen Sie den Fehler su¬ 
chen. 

Red. 

Textverarbeitung und 
Drucker 

Ich besitze eine Textverar¬ 
beitung und einen LQ 3500 
Drucker. Nun hat das Pro¬ 
gramm die Möglichkeit, 
Steuerzeichen wie Fettdruck 
oder Unterstrichen einzu¬ 
bauen, aber mein Drucker 
möchte nicht so, wie ich es 
will. Wie kann ich durch die¬ 
ses Programm andere Schrift¬ 
arten ausdrucken lassen ? 

Karl Heinz Pitz, 
Busek 

Erst einmal kann man sagen, 
daß jeder Drucker andere 
Steuersequenzen (eine be¬ 
stimmte Bytegruppe) für den 
Ausdruck benötigt. Dies gilt 
besonders, wenn ein Text 
nicht “normal“ ausgedruckt 
werden soll. Sie müssen nun 
im Druckerhandbuch die 
Werte für beispielsweise 
Fettdruck, mit Ihrem Hand¬ 
buch für die Textverarbei- 
tung vergleichen. Änderun¬ 
gen werden entweder durch 
POKE-Befehle in den ent¬ 
sprechenden Adreßbereich 
für die Druckerroutine vor¬ 
genommen oder durch ein 
entsprechendes Menü. 

Red. 
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Multiface II 


Spiele 


dk'lronics Erw. 
Protext 


STAR-WRITER I 98. 
DATEI-STAR 98, 


Dataphon 21 S 
Dataphon 21-23 S 
Anschlußkabel 
Treibersoltware 


warn 


Zweitlaufwerk Joyce: 
(aus eigener Produktion) 
3,5“-Laufwerk 348, 
5l/4“-Laufwerk 448, 

... AMSTRAD- 

FD4 499, 


Karl-Heinz Weeske • Potsdamer Ring 10 • 7150 Backnang 
Telex 724410 weeba d * Kreissparkasse Backnang ♦ BL2 
(60250020)74397 * Postgiro Stgt. 83326-707 • FAX 60077 


NLQ401 19,80 

StarNL/LClO 24,80 

DMP-Drucker 19,80 

LQ3500-Drucker 29,80 

Joyce-Drucker 24,80 

PCW9512-Dr. 19,80 


für CPC 664.6128 
incl. Kabel 


Konsole CPC 
Monitore 
DMP-Drucker 
Floppy's 


Competit. Pro 39,80 

...durchsichtig 49,80 

Quickshot II 19,80 


Zahlung per Nachnahme oder Vorauskasse (Ausland per Scheck). 
VersandkostenpauschaJe (Inland 7,80 DM /Ausland 19,80 DM). 
Infoanforderung nur mit frankiertem A4-Rückumschlag und DM 2 ~ 

07191/1528-29 od. 60076 


Druckerkabel CPC 39,- 
Monitorverlängerung 29,50 


PROWORT 219,— 

PROTEXT: 

• 3"-Diskette 94,- 

•EPROM 124,- 

MAXAM (Z80 Eniw.): 

• 3"-Dis kette 94,-- 

•EPROM 124,- 

MAXAM II 239,- 

PROSPELL: 

■ engl. Vers. 50,— 

• dtsch. Vers. 70,— 

Dtsch. Handbuch: 
...PROTEXT 19,80 
...MAXAM 19,80 

ADRESCOMP 58,- 

DATENREM 68,- 

FAKTUREM 78,- 

FIBUKING 136,— 

LAGDAT 68,- 

TEXTKING 78,- 

COMFORM 48,- 

ETATGRAF 58,- 

FIBUCOMP 98,- 

KALKUREM 78,- 

PROFIREM 136,» 

VOKABI 58,- 


PROWORT 
PROSPELL 
MAXAM II 


Supercopy 

65,- 

Mastercopy 

69,- 


Wllll'A.YL 

ADRESCOMP 

TM 

58,- 

COMFORM 

48,- 

DATENREM 

68,- 

ETATGRAF 

58,- 

FIBUKING 

136,- 

LAGDAT 

68,- 

PROFIREM 

136,- 

VOKABI 

58,- 

FAKTUREM 

78,- 

KALKUREM 

78,- 


LocoScript 2 

148,- 

LocoMail 1 

128,- 

LocoMail 2 

211,- 

LocoSpell 2 

168,- 

L. Script + Spell 248,- 

LocoFile 

168,- 

LocoFont 

89,- 


Multiplan 

198,- 

dBase II 

198,- 

Tassword 8000 

148,- 


Zweitlaufwerke CPC: 

(aus eigener Produktion) 

3”-Laufwerk 

298,- 

3,5“-Laufwerk 

398,- 

51/4”-L aufwerk 

448,-- 

... AMSTRAD- 

— 

FD1* 

299,- 

DD1 (milContr.) 

499,- 

Anschlußkabel ( 

) 48,- 


Diamant von Rabenfels (g) 
Drachenland (t) 

Reise durch die Zeit (I) 
Sherlock Holmes (g) 

Auftrag in der Bronx (g) 

Insel der Smaragde (t) 

Das Pharaonengrab (t) 

(t - texl; g - Grafik; alle In 
deutsch) 

je Diskette 49,- 


Text • Datenbank • Grafik • 
Etikettendruck • Tabellen¬ 
kalkulation • engl. Handb. ■ 
Komplett für nur 98,- 


ROMBOX (CPC) 118,- 
VIDI (CPC) 348,-- 

VIDI (Joyce) 378,- 
VIDI (IBM-KOMP.) 448,-- 

Headline 198,- 

RH-DAT (Datenb.) 98,-- 
Turbo Pascal 225,- 
Turbo Toolbox 10 148,- 
DR-Graph 198,- 
DR-Draw 198,- 
Prompt (Dateiprg.) 69,— 
Prompt Druck 39,- 
Mercator PCW 477,« 
MICA (CAD) 198,- 
Vokabeltrainer 59,- 
Verbentrainer 49,~ 
TurboAdress 98,- 
Turbo Faktura 148,- 
Comac Litbox 148,- 
COMAC-Kasea P1uo168,— 
Vereinsverwalt. 198,— 
Schreiblehrgang 89,- 
PSE2 129,- 

Fleetstr. Edit. 199,« 
WS-Tuner 49,80 
varDat 199,-- 

Prospell Engl. 50,- 
FISKUS 1987-1988(89) 
Lohnsteuer-Jahresausgl. 

für nur 139,- 


für 464/664: 

Speech Synth. (ROM) 148,- 
Speech Synih. (Kas.) 98,- 
Lightpen (Kas.) 68,- 

64 k Erweilerung 168,- 

256 k Erweiterung 348,- 

256 k Silicon Disk 378,- 

Uhrenmodul 128,- 

für 6128 : 

256 k Erweiterung- 348,- 

256 kSilioon Disk- 378,- 

64 k Silicon Disk- 168,- 

Speech Syn. (ROM)- 148,- 
Lightpen (ROM)- 98,- 

Uhrenmodul- 119,— 

Adapter (♦) 39,- 


Steuerung Ihres CPC Ober 
den Bildschirm • mit hervor¬ 
ragendem Grafikprogramm 
• org. engl. Handbuch • 

nur 278,- 
...Handbuch deutsch 

29,80 


AMX-Maus ♦ 

Grafikprogramm ♦ Handbuch 
...Restaulkaul aus Konkurs¬ 
masse II 

CPC 178,- Joyce 198,- 


Seitengestalter 
... benötigt 64k Zusatzspei¬ 
cher bei 464 und 664 (nur 
dk'tronicsll) • mit orginal engl. 
Handbuch 

Stop Press 198,- 

St.Pr.+ AMX Maus 348,- 
...Handbuch deutsch 

19.80 


Stop Press Utilities 


Extra I 

Jede Menge neue Fontsl 

129,- 


EASI ART* Trackerball 


Marconi-Trackerball jetzt auch 
(Orden CPCI Mit dem 
hervorragenden Grafikpro¬ 
gramm EASI-ART von Mlcro- 
draw. 

komplett für nur 298,-- 

...komplett mH StopPress 
Paketpreia 448,- 


Ähnlich AMX-Mouse für CPC. 
Mit Grafiksofiwarel 179,— 


(Kopierprogramm) 
Vollständige Kopiereinrich¬ 
tung (Or Kassetten und Disk. 
Neue Version 178,— 

Adapter für 6128 39,- 


Dart - Scanner CPC 


MP2 (AntcW TV) 129,' 
MP3 (TV-UoOulalof) 199,' 


Für DMP 2xxx/3xxx Drucker. 

CT1 (Radio-Uhr) 

89,- 

Mit deutscher Anleitung 1 


komplett für nur 249,— 

Adapter CPC 6128 39,- 

dBase II 

Multiplan 

199,- 

199,- 

BTX-Modul 



Jetzt auch für CPC'sl Erlaubt 
den Anschluß Ihres CPC’s an 

voKaDOiiramor. 

• Kassette 

39,- 

an 

den 8TX-Rechner der 

Bundes- Post 1 398,- 

* 3 -Diskette 

Verbentrainer: 

49,— 


Alles für Ihren Joyce 


-- Supercopy 85,- 


Zubehör 

Schnittstellen ii 


von AMSTRAD 
Joyce RS232 198,- 

CPC RS232 org. 198,- 
... von Schneider 148,- 


STATISTIK-STAR 

Grallk- und Statlstlkprgamm 

nur 98,- 

STAR-MAIL 

Erweiterung von LocoScriptl 
Ausdruck auf Fremddruckern 
Serienbrieferstellung... 

nur 98,- 

DATEI-STAR 

Daleiverwaltungssystem 

nur 98,~ 

MAILING-SYSTEM 
Softwarepaket; STAR-MAIL 
♦ DATEI-STAR 189,- 
STAR-BASE 
Datenbanksystem 198,— 
BUSINESS-STAR 
Auftragsbearbertung mit: 
Fakturierung / Lager/ Mahn¬ 
wesen / Datenverwaltung ... 

298,- 

FIBU-STAR plus 

Finanzbuchhaltung 298,— 
LOCO-MERGE 
Serienbrielerstellung 98,— 


...benötigt RS232 1 78,- 


Professional 
Textverarbeilung • DFÜ • 
Datenbank* Tabellenkalku- 
lation • Geschäftsgrafik • 

Das integrierte Softwarepa- 
ket. (Or hohe Ansprüche, 
komplett für nur 138,— 

...deutscher Zeichensatz 
auf 3"-Dis kette 29,80 


Steuerung Ihres Joyce über 
den Bildschirm. Mit hervor¬ 
ragender Software: AMX- 
Desktop-Programm • Notiz¬ 
buch • Kalender • engl. Handb 
nur 298,- 
Adapter 39,- 


Seitengestalter 
Sensationelles DTP-Progr. 
für den Joyce • engl. Handb. 
StopPress 198,- 

Sf.Pr, ♦ AMX Maus 398,- 


Mouse Pad (Gisiimatte) 19,80 Alle AMSTRAD-Typen 
Bildschirmfilier 59,- 

200 Endlosetiketsen 18,- 


Schallpläne CPC 


CPC 464/664 
CPC 6128 
CTM 644 
CTM 640 
GT 64/65 


Handbücher deutsch 


■ Mini Office II 
• AMX-Mouse 

■ StopPress 


Ideale Papierführung für Ihren 
Joyce-Drucker. 

nur 29,90 


Joyce-Scanner* 


MasterScan & Paini 
Scanner einfach auf 
Druckerkopf stecken und los 
geht's I 

MasterScan 298,- 

MasterPaint 78,- 

Paketpreis nur 338,- 
Adapter 39,- 


Desktop Publisher* 


Professionelles Desktop- 
Publishlng auf Ihrem Joyce 

118 ,- 

.. kompl. mit AMX-Maus 

348,- 


dk'tromcs Joyce* 


Joystick-Controller- 69,- 

Contr.+Sound- 129,- 

Echtzeltuhrenmodul- 129,- 

256 k Erweiterung 248,- 

Adapter (•) 39,— 


Joyce-Spiele: 


Hardware 


... MAXELL CF2 ID 89,- 

...Noname ID 69,- 

... CF2 DD 148,- 

...Panasonic CF2 99,- 


... Joyce 
... PC 1512 
... PC 1640 
... Monitor PC 


CPC ♦ Joyce 

Über 1000 PD-Prg. auf 3" 
Jede Diskette 20,- 

PD-Disk. 1-19 mit dtsch 
Handb. (Kotulla): 
JRT-Pascal (1) • Z80-Entw. 
(2) • SmallC (4) • Forth-83 
(5)* CPC-Arbeitsb. (7) • 
Cave Adventure (8) • Biz- 
Basic (10) • Basic E- Comp. 
(11)* Dateiverwaltung (14) 
Wordstar Utilities (15) • C- 
Interpreter (17) • Telekom¬ 
munikation MEX (19) • 

Jede Diskette 30,- 

MS-DOS 

Über 3000 Diskettenl Aus¬ 
führliche Liste schriftlich an¬ 
fordern. Liste DM 9.80 

Jede Diskette 


CPC 464 grün 
CPC 6128 grün 


Kassette 

3’'-Diskette 


• Sorcery + 

‘ Fllpper/Knifet/Reversi(3>1) f 

• 3D Stunt/30 Grand Prix/3D j: 
Boxkampf (3 in einem) i 

• Roland in HöhlerVin der 
ZeiVHunchback... (4 in 1) 

• Tennis 

je Diskette nur 25,- 

Batman 59,- 

Bridge Player 59,- 

Clock Chess 89 69, - 

Colossus Bridge 53,- i 

Colossus Chess 69,- • 

F.B. Boxing 69,- [ 

Football Fort, 69,- 

Head over Haels 49,- 

Jewels Darkness 89,- 

KnightOrc 69,- 

Pawn 89,- 

Strike Force H. 69,- 

Tetris 65,- i 

Tomahawk 79,- j 

Anais of Rome 69,- ! 

Corruption 89,- ! 

Time and Magic 89,- 

IIH •‘ Äufgepasst ** 

i Ate engl. F^odukte 
i wertfen mit o*glns'engl 
j Handbuch ausgeliefert! 
i Für 29.80 {*) bzw. 19.80 
[ (-) «halten Sie zusätz¬ 
lich rte jeweilige tftsch. 
Übersetzung. 

j Joyce-Katalog <if 
Der Joyce lei noch 
langst nicht tot! Wenn 
S Sie naneret üb« unsere 
! Joyce-Produkle erfaßen 

• woSon. so be«effen Sie 
i sich doch einfach un*e- 

| ren Joyce-Katalog 4.- 


Alle Schneider-Typen 
Die sbeoluten Renner: 
Euro PC: 

... MM12 1.298,- 

Tower AT: 

...201 MM 12 2.498,-- 
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AMS-Line - 

der direkte Draht zur Firma AMSTRAD 


ln dieser Ausgabe unserer AMS-line finden 
Sie wieder einmal eine Reihe von Installa¬ 
tionshinweisen - ausnahmsweise nur “sof¬ 
te Ware“. Denn auch gute Software braucht 
leider immer mal wieder eine Prise “Ge¬ 
wußt wie“. 

WORD 4.0 auf VGA-Karte 

Wer WORD auf dem PC2086 oder einem 
anderen Gerät der 2x86-Reihe im Grafik¬ 
modus (Option /g) aufruft, erlebt eine her¬ 
be Enttäuschung: Die Maus “funktioniert 
nicht mehr“. 

Diejenigen, die etwas herumexperimentie¬ 
ren, merken schnell, daß die Maus durch¬ 
aus “funktioniert“ - es lassen sich durch 
“wildes Herumklicken“ Funktionen aufru- 
fen. Der Mauszeiger ist lediglich “unsicht¬ 
bar“ geworden. Der Grund für dieses Ver¬ 
schwinden ist in dem Ansprechen des 
VGA/EGA-Modes der eingebauten Grafik- 
kartc durch das Textprogramm zu suchen, 
WORD erkennt offensichtlich nicht kor¬ 
rekt, welcher Modus aktiv ist. Zur Zeit ein¬ 
zige Abhilfe: Setzen Sie Ihre Grafikkartc 
vor dem Aufrufen von WORD in den Her- 
cules-Modus (oder verzichten Sie ganz auf 
den Grafikmodus, denn im Textmodus er¬ 
scheint der Blockcursor problemlos). Der 
Aufruf DEVICE DISPLAY HERCO kann 
z.B. in eine kleine Stapeldatei MW.BAT 
aufgenommen werden, am besten setzen 
Sie nach dem Verlassen von WORD den 
Grafikmodus mit DEVICE DISPLAY 
VGA dann wieder in den alten Modus zu¬ 
rück. 

SELECT beim PC2086 

Wer gezwungen wird, die Festplatte des 
PC2086 neu zu installieren und dazu getreu 
nach Handbuch vorgeht, der erlebt gleich 
die nächste Enttäuschung: Das Programm 
SELECT versagt mit der Fehlermeldung 
"Falscher Tastaturcode“ den Dienst. Hier 
liegt kein Defekt vor, sondern hier war der 
Übersetzer des Handbuchs etwas zu eifrig. 
Wie man an anderer Stelle, bei der Be¬ 
schreibung des SELECT-Befehls. lesen 
kann, ist der Tastaturcode für die deutsche 
Tastatur GR - wie man aus der Syntax des 
KEYB-Aufrufs durchaus vermuten könnte. 
In der Tabelle ist dieser Wert korrekt ge¬ 
blieben - bei der Angabe im ersten Teil 
des Handbuchs wurde daraus aber SE¬ 
LECT 49 D. “D“ als durchaus plausible 
Übersetzung für “GR“, nur daß diese dem 
SELECT-Befehl leider nicht bekannt ist. 


Rufen Sie also im Falle eines Falles SE¬ 
LECT 49 GR auf, dann sollte nichts mehr 
schiefgehen. 

LQ3500 und LQ5000 unter Windows 

Druckeranpassung ist ein altes Leiden der 
Computerbenutzer. Mal funktioniert der 
Treiber für einen Druckertyp tadellos, im 
nächsten Programm bekommt man mit der 
gleichen Auswahl nur Unsinn aufs Papier 
- keine Umlaute, schlechte Grafik oder 
gar nur "Steuerzeichen“. 

Unter Windows trifft es den Benutzer wie¬ 
der einmal besonders hart: Da hat man nach 
einigem Suchen im Druckerhandbuch end¬ 
lich gefunden, daß der LQ3500 (oder 
LQ5000) im Epson- Modus zum EPSON 
LQ1500 kompatibel sein soll (er ist es 
auch!) und unter Windows den entspre¬ 
chenden Treiber ausgewählt, nur um fest¬ 
zustellen, daß die Texte ohne Umlaute er¬ 
scheinen. Microsoft hat hier offensichtlich 
etwas andere Vorstellungen von einem 
LQ1500 als andere. Aber es gibt durchaus 
Treiber für EPSON LQ-Drucker, die we¬ 
sentlich besser sind: Als LQ500, LQ850, 
LQ1050 oder SQ2500 läuft der AM¬ 
STRAD LQ auf einmal mit Umlauten - 
und selbst die Grafik funktioniert. Wenn 
Sie also einen dieser Drucker beim SETUP 
auswählen, ersparen Sie sich einigen Är¬ 
ger. Für diejenigen, die Windows bereits 
mit LQ1500 installiert haben, bietet sich 
auch ein etwas schnellerer Weg, den 
Druckertreiber umzustellen: Unter Win¬ 
dows 2.03 gibt es das Programm SY- 
STEMST.EXE. Dessen Aufruf liefert ein 
Menü, das unter anderem den Punkt “Ein¬ 
stellung“ enthält. Wählen Sie diesen an und 
im darauffolgenden Menü den Punkt 
“Drucker“. Daraufhin wird Ihnen “EP¬ 
SON LQ 2“ als Druckertreiber angezeigt. 
Die ganzen EPSON LQ-Treiber verstecken 
sich nämlich in einer einzigen Datei. Nach 
dem Klicken auf den angezeigten Treiber 
erhalten Sie ein neues Fenster mit Angaben 
zum Druckertreiber. Unter Windows/286 
bzw. Windows/386 finden Sie die "Sy¬ 
stemsteuerung“ als Datei CONTROL 
.EXE. Die aufzurufenden Optionen heißen 
hier “Setup“ und “Printer“. Beim Aktivie¬ 
ren erhalten Sie — wenn der LQ 1500 instal¬ 
liert wurde - die Angabe “EPSON 24 
PIN“ als Druckertreiber. Sobald Sie OK 
anklicken (bei mehreren Druckertreibern 
muß der Auswahlcursor natürlich auf die- 
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sem Treiber stehen), erscheint auch hier 
wieder das oben beschriebene Fenster mit 
Angaben zum Drucker, in dem Sie jetzt den 
gewünschten Druckertyp aktivieren kön¬ 
nen. Bei allen Windows-Versionen bietet 
sich auch die Möglichkeit, diese Einstel¬ 
lungen über das Windows- WRITE-Pro- 
gramm vorzunehmen. Dazu müssen Sie im 
FILE-Menü den Punkt “CHANGE PRIN¬ 
TER“ an wählen. 

Englisches Windows/286 bzw. /386 mit 
deutscher Tastatur 

Windows hat keine Umlaute. Ein weiterer 
Punkt, der häufig angefragt wurde. Hat es 
doch!! Die mit dem PC2286 und PC2386 
ursprünglich ausgelieferten Versionen bie¬ 
ten bei der “Geräteauswahl“ nur die Alter¬ 
nativen AMSTRAD PC2xxx-US oder - 
UK, weit und breit kein -GR. Wählen Sie 
beim SETUP einfach UK aus. In der fol¬ 
genden Liste wird unter “No Change“ und 
“VGA“ das “British Keyboard“ aufge- 
führt, führen Sie den Balkencursor auf die¬ 
sen Punkt und bestätigen Sie die Wahl mit 
RETURN. Siehe da, es erscheint eine Län¬ 
derauswahl, aus der Sie jetzt das “German 
Keyboard“ mit dem Cursor auswählen kön¬ 
nen. Nach der Beendigung des SETUPS hat 
Ihr Windows dann auch die gewünschte 
deutsche Tastatur mit allen Umlauten. 

Paket PC2086 und Lotus Symphony 

Bei der Installationsroutine des Symphony- 
Programms ist zur Erleichterung der Instal¬ 
lation an den jeweils auszuwählenden Op¬ 
tionen der Name AMSTRAD mitaufge- 
führt. ln einem Punkt ist dies jedoch un¬ 
vollständig. Alle, die einen DMP-Drucker 
mit diesem Paket erworben haben, können 
sich bei der Angabe des Grafikdruckers 
nicht nach “AMSTRAD“ richten, da hier 
nur die Option für den LQ3500 aufgeführt 
ist. Dieser ist in der Einstellung auf EP- 
SON-Zeichensatz zum EPSON LQI500 
kompatibel, für die DMP-Drucker muß die 
entsprechende Einstellung EPSON FX lau¬ 
ten. Sie wählen dafür unter dem Punkt 
“Grafikdrucker“ die Option “EP- 
SON/AMSTRAD“ aus utld im darauffol¬ 
genden Menü den ersten Punkt “FX und 
RX“. Danach können Sie mit PrintGraph 
Ihre Grafiken ausdrucken. 


Ihre 
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Service—i 


Die Service-Ecke 

Von AMSTRAD und ANDERS 


Liebe Leser, 

unsere neue Rubrik stößt erfreulicherweise von Beginn an auf gute Reso¬ 
nanz. Die bisherigen Zuschriften zeigen eines ganz deutlich: Es muß noch 
viel Information im Zusammenspiel von Vertriebsfirma, Serviceunterneh¬ 
men, dem Handel und Ihnen - den Anwendern - fließen. Dies schließt den 
Appell an AMSTRAD und ANDERS ein, den Dialog mit Ihnen künftig noch 
griffiger zu gestalten und so spätere Probleme bereits im Vorfeld zu berei¬ 
nigen. 


Nun zu unseren heutigen Themen. Aus 
den Zuschriften habe ich zwei Themen 
ausgewählt, deren Problematik (leider) 
kein Einzelfall ist. Bei der Beantwor¬ 
tung der Fragen haben mir zwei Exper¬ 
ten zur Seite gestanden: Lothar 
Schmidt, AMSTRAD-Support und 
Hotline sowie Max Dahrens, Produkt¬ 
spezialist des ANDERS-Service (s. 
Foto). 

Herr Dr. L. aus C. schreibt: 

Sehr geehrter Herr Bilker, 
wir haben seit einigen Monaten zwei 
Computer von AMSTRAD, einen 
PCW 8256 und einen PCW 9512. Lei¬ 
der ergibt sich hier ein spezifisches 
Problem: Ein Text, auf dem PCW 
8256 geschrieben und auf Diskette ge¬ 
speichert, wird vom PCW 9512 gele¬ 
sen und auf Laufwerk M gespeichert 
und kann dort auch bearbeitet, jedoch 
nicht mehr von dort auf die Original¬ 
diskette kopiert werden. Umgekehrt 
weigert sich der PCW 8256, eine Dis¬ 
kette des PCW 9512 überhaupt zu le¬ 
sen. Es wäre zu schön, wenn man für 
die Textverarbeitung (es geht nur um 
Textbearbeitung) die Disketten einfach 
von einem zum anderen Computer 
schieben könnte. Gibt es vielleicht eine 


Möglichkeit, die wir in diesen Mona¬ 
ten noch nicht herausbekommen 
haben? 

Wir sehen Ihrer Antwort mit Spannung 
und Interesse entgegen. 

Antwort: 

Beide Geräte haben gleiche Betriebssy¬ 
steme (CP/M plus) und Benutzerober¬ 
flächen. Unterschiede gibt es jedoch 
bei der Handhabung der Disketten. Ob¬ 
wohl bezüglich Anwenderprogrammen 
beide Computer übereinstimmen, kann 
ein wechselseitiger Austausch der auf 
Diskette gezogenen Texte nicht statt¬ 
finden: Die Disketten sind nämlich un¬ 
terschiedlich formatiert. 

Um das Problem zu lösen, bieten sich 
zwei Möglichkeiten an: entweder die 
unterschiedliche Formatierung aufein¬ 
ander abzustimmen, das heißt, zu kon¬ 
vertieren, oder aber den PCW 8256 
beim Fachhändler gegen einen zweiten 
PCW 9512 einzutauschen. In beiden 
Fällen sollte der Lieferant beraten, 
denn dort scheint das Problem auch be¬ 
gonnen zu haben. Für unsere Leser 
weise ich allgemein auf die vorpro¬ 
grammierten Pannen hin, die entstehen 
können, wenn bei Anschaffung der Ge¬ 
räte der beabsichtigte Anwendungsbe- 



Moderne Geräte hel¬ 
fen bei der schnellen 
Fehlererkennung und 
halten damit die Ko¬ 
sten niedrig 


reich bzw. -zweck zu unpräzise defi¬ 
niert wird. Wenn - wie in diesem Fall 
—von vornherein der Austausch von 
Texten bzw. Disketten klar beabsich¬ 
tigt war, läge die Unterlassung entwe¬ 
der beim Anwender (nämlich, indem er 
den Lieferanten nicht darüber infor¬ 
miert hat) oder aber beim Lieferanten 
(indem dieser den Anwender wissent¬ 
lich falsch beraten hat). Mit Bezug auf 
unseren Leserbrief bleibt dies letztlich 
die Gewissensfrage, deren Beantwor¬ 
tung dann wohl auch die “Schuldfrage" 
löst. 

Herr L. aus B. schreibt: 

Sehr geehrter Herr Baker, 
vor inzwischen mehreren Jahren habe 
ich einen Schneider CPC 664 erwor¬ 
ben. Ich bin auch immer noch -bis auf 
einige Unstimmigkeiten, die z.B. Tips 
aus der Zeitschrift PC INTERNATIO¬ 
NAL für den 664 nicht lauffähig ma¬ 
chen - zufrieden. Jetzt ist jedoch eine 
der Verbindungen auf der Folie, die die 
Tastatur abfragt, unterbrochen. Diese 
Unterbrechung habe ich mit einem fei¬ 
nen Draht überbrückt. Diese Über¬ 
brückung funktioniert aber nicht stän¬ 
dig. Manche Tasten sind häufiger nicht 
einsetzbar. Der Händler, bei dem ich 
den Computer erworben habe, ist nicht 
in der Lage, eine neue Folie zu besor¬ 
gen. Können Sie mir angeben, wo ich 
eine solche Folie noch bekommen 
kann? 

Antwort: 

Die Antwort fällt bei dieser Frage 
leicht. Zum Zeitpunkt des Redaktions¬ 
schlusses gibt es eine solche Folie noch 
beim Repair Center des ANDERS Ser¬ 
vice zu beziehen (Telefon-Nr. 
06106/74011). Lassen Sie mich jedoch 
noch auf die weitverbreitete "Unsitte“ 
hinweisen, daß der eigene Eingriff in 
die Geräte - wie an diesem Beispiel 
deutlich wird — das Problem fast nie 
löst. Da sollte im konkreten Fall lieber 
der Fachmann ran. Bei ihm gibt es 
schließlich auch noch die Gewährlei¬ 
stung für die vorgenommene Repara¬ 
tur. Der eigene Eingriff führt bekannt¬ 
lich ja auch dann zu mehr Kosten, 
wenn durch ihn der Fehler erster Gene¬ 
ration verschleiert wird, und der Fach¬ 
mann aufgrund der erst sekundär ent¬ 
standenen Fehlertypen zunächst auf die 
fälsche Fährte gesetzt wird. Diese häu¬ 
fige Fehlersuche erschwert dem Kun¬ 
dendienst die Arbeit und verteuert die 
Reparatur unnötig. Soweit für heute! 
Mit Interesse sehe ich Ihren neuen Fra¬ 
gen entgegen. 

Ihr Ulrich Büker 
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Das 

Flaggschiff 


Amstrads PC 2386 - 
Speichergigant mit 
VGA-Standard 





Nach den CPCs, PC Ws und PC 1512/1640 sind nun 
die PCs der 2XXX-Reihe die Computer, mit denen 
Amstrad dem heiß umkämpften Markt frischen 
Wind zukommen lassen will. Dabei soll der neue PC 
2386, das Flaggschiff der neuen Computerreihe, 
einen nicht unbedeutenden Beitrag leisten. Was das 
neue Gerät verspricht und hält, soll Ihnen unser 
Testbericht aufzeigen. 
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Abb. I: Einer der Vorteile des PC23H6 ist sein hochauflösender VGA-Monitor. CAD-Zeichntmgen 
oder grafische Darstellung ist hiermit kein Problem mehr 


Der PC 2386 ist die vorläufig höchste 
Variante der Typenreihe 2XXX. Aus¬ 
gerüstet mit einem superschnellen 
80386er Prozessor, der mit 20 MHz 
getaktet wird, einer serienmäßig einge¬ 
bauten 65-MByte-Festplatte, mit 1.44- 
MByte-3.5-Zoll-Laufwerk und bis zu 4 
MByte Hauptspeicher wird er vom 
Hersteller ausgeliefert. Der Preis liegt 
dabei von zirka 10.000,- DM an auf¬ 
wärts. Amstrad zielt mit diesem Gerät 
hauptsächlich auf den gewerblichen 
Bereich, so soll der PC 2386 der Busi¬ 
ness-Computer für Firmen und Betrie¬ 
be werden, wobei er für alle anfallen¬ 
den Arbeiten gerüstet ist. Ob Grafik. 
CAD, Planung oder Kalkulation, der 
PC 2386 soll ein Allroundtalent auf je¬ 
dem Sektor sein. Wie es in der Praxis 
damit aussieht, wollten wir genau 
wissen. 

Das Zubehör 

Neben dem VGA-Monitor, der 
Zentraleinheit, der Maus und der Ta¬ 
statur findet der Käufer insgesamt drei 
Handbücher und drei Anwendungshef¬ 
te. Die Handbücher behandeln die drei 
Grundthemen des Computers, nämlich 
MS-DOS, GW-BASIC und MS-Win¬ 
dows, das dem Computer in einer spe¬ 
ziellen Version für den 80386er Pro¬ 
zessor beiliegt. Die Handbücher sind 
sehr übersichtlich und gut unterteilt. 
Das MS-DOS-Handbuch zeigt neben 
der Installation des Computers aus¬ 
führlich alle DOS-Befehle auf, so wer¬ 
den auch zu jedem Befehl Beispiele ge¬ 


geben, die das Verständnis erleichtern. 
Das GW-BASIC-Handbuch ist eben¬ 
falls recht einfach zu lesen und bringt 
dem Benutzer des PC 2386, der auch 
selbst programmieren will, diese Stan¬ 
dardsprache schnell näher. MS-Win¬ 
dows ist eine seit geraumer Zeit schon 
bekannte neue Benutzeroberfläche, die 
das Arbeiten mit dem PC ähnlich wie 
bei GEM (PC 1512/1640) zuläßt. 
Windows386 ist eine auf diesen schnel¬ 
len Prozessortyp zugeschnittene Va¬ 
riante des MS-Windows. Das Hand¬ 
buch zu Windows386 gibt dem Benut¬ 
zer nicht nur praktische Tips im Um¬ 
gang mit der Oberfläche, sondern 
erklärt dem Leser von Grund auf das 
System, so daß man sehr schnell in der 
Lage ist, neu hinzugekommene Pro¬ 
gramme unter Windows einzubinden. 
Über die mitgelieferten Handbücher 
kann man nur ein positives Urteil abge¬ 
ben, zumal noch Kurzüberblicke in 
Heftform beigelegt wurden. 

Die beiliegenden Disketten enthalten 
außer einer DOS-4.01-Installations¬ 
und Systemdiskette auch die Installa¬ 
tionsdisketten für Windows386. Die 
Installation läuft fast ohne Zutun des 
Benutzers ab, einzig die Einstellwerte 
(z.B. der anzulegende Pfad) können bei 
Bedarf geändert werden. 

Die Zentraleinheit 

Der Hauptteil des PC2386, die Zentral¬ 
einheit, ist zwar recht groß ausgefal¬ 
len, jedoch flacher und kompakter, als 


die vergleichbarer Tischgeräte. Positiv 
ist hierbei zu bewerten, daß Amstrad 
konsequent den bisherigen Weg eines 
kompakten Aufbaus weiterverfolgt und 
wieder eine Aussparung für den Stand¬ 
fuß des Monitors vorgesehen hat, in 
der auch wieder die Batterien einge¬ 
setzt werden, die dem batteriegepuffer¬ 
ten RAM die notwendige Energie lie¬ 
fern. Nichts gegen den Batterieplatz, 
allerdings werden bei einigen anderen 
Geräten anstatt der Batterien Akkus be¬ 
nutzt, die sich beim Betrieb des PCs 
wieder regenerieren (aufladen) kön¬ 
nen, und somit eine geldsparende Al¬ 
ternative zu den teureren Batterien sind. 

Monitor und Zentraleinheit bilden 
dank der kompakten Bauweise eine 
Einheit, die das Gesamtbild des PC 
2386 verbessert, auch wenn das Ge¬ 
häuse der Zentraleinheit etwas futuri¬ 
stisch anmutet. 

Auf der Platine befindet sich neben 
dem Prozessor ein Sockel für den ma¬ 
thematischen Co-Prozessor 80387. 
Dieser Prozessor kann nachträglich 
beim Vertragshändler eingebaut wer¬ 
den, allerdings sollte man den Kosten/ 
Nutzungsfaktor im Auge behalten. Die 
80387er Prozessoren sind aufgrund der 
relativ kleinen Verbreitung noch sehr 
teuer, außerdem greifen nur sehr weni¬ 
ge Programme auf diese 'Rechenhilfe' 
zurück, die meisten finden sich im 
CAD-Bereich, wo der Einsatz der Co¬ 
prozessoren schon notwendig ist. 

Fünf Steckplätze für Erweiterungen 
stehen dem Benutzer zur Verfügung, 
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davon vier mit 16 Bit und einer mit 8 
Bit Busbreite, damit sind eine Menge 
an AT- oder XT-Steckkarten ersetz¬ 
bar, wie Ein-/Ausgabe-Karten, externe 
Portanschlüsse oder ähnlichem. Bei 
den Portanschlüssen ist man den glei¬ 
chen Weg wie bei den Vorgängern 
PC 1512/1640 gegangen; hier findet 
man einen parallelen, einen seriellen 
und den Video-Anschluß für den Moni¬ 
tor. Die Ports selbst sind Standardan¬ 
schlüsse, sie entsprechen den üblichen 
genormten Anschlüssen, wie sie an fast 
jedem PC zu finden sind. 

Er ist ein ausgesprochener Speichergi¬ 
gant, der PC 2386. Insgesamt vier 
MByte Hauptspeicher stehen dem Be¬ 
nutzer zur Verfügung, allerdings da¬ 
von nur 640 kByte rein als Programm¬ 
speicher. Der weitere Speicher wird als 
RAM-Puffer für die Festplatte benötigt 
(in unserem Installationsfall 512 kBy¬ 
te, der sogenannte Cache-Speicher), 
und als Datenspeicher für Programme 
wie Windows386, welches zu diesem 
Zweck auch ein eigenes Konfigura- 
tions-File besitzen. 


Cache — Was ist das 
eigentlich? 

Was ist denn nun eigentlich ein Cache- 
Speicher (gesprochen wird er Kaschee)? 
Ein Cache speichert erst einmal die Da¬ 
ten, die von der Festplatte kommen, 
zwischen, bevor sie zur Ausführung in 
den Programmspeicher gelangen. Der 
Vorteil liegt darin, daß Programme bei 
nochmaligem Aufruf nicht nochmal von 
der Festplatte geladen werden müssen, 
sondern einfach vom Cache in den 
Hauptspeicher 'geschoben' werden. 
Obwohl die Arbeit mit einer Festplatte 
schon schnell genug ist, lassen sich hier 
noch zusätzliche Geschwindigkeitsvor¬ 
teile erreichen. Man sieht also, bei je¬ 
dem neuen PC gilt es, den Geschwindig¬ 
keitsrekord seines Vorgängers einzu¬ 
holen. 


Die eingebaute 65-MByte-Festplatte 
genügt zwar auf den ersten Blick den 
Ansprüchen, wird der PC2386 jedoch 
nicht nur privat, sondern, wie auch von 
Amstrad vorgesehen, im gewerblichen 
Bereich eingesetzt, kann es unter Um¬ 
ständen passieren, daß man bald an die 
Grenzen der Kapazität stößt, da viele 
der eingesetzten Programme eine An¬ 
zahl an Megabyte verschlingen. Bei 
der Festplatte traten auch Probleme 
auf: Formatiert mit einem Interleave- 
Faktor von 1, wie er bei PCs mit dem 
80386-Prozessor gebräuchlich ist 


(hierbei wird bei einer Umdrehung der 
Platte eine komplette Spur eingelesen), 
gab es kurz darauf Schwierigkeiten 
beim Lesen, die Platte gab dies mit 
mehrmaligem Kläcken bekannt. Wur¬ 
de der Interleave höher gesetzt (größe¬ 
re Übermittlungszeiten zwischen Platte 
und Speicher), waren die Probleme 
zwar beseitigt, damit aber auch der Ge¬ 
schwindigkeitsvorteil. Im PC 2386 ist 
einer der schnellen RLL-Controller 
eingebaut, durch den höheren Inter¬ 
leave jedoch wird dieser wieder ge¬ 
bremst. Nach Informationen der Firma 
Amstrad ist dieser Fehler dort bekannt. 
Er wird laut Amstrad durch einen Feh¬ 
ler in der aktuellen DOS-Version, der 
dem PC2386 beiliegt, verursacht. Des¬ 
halb hat Amstrad eine korrigierte Fas¬ 
sung beigelegt, die es erlaubt, den 
Rechner zu installieren. Sobald eine of¬ 
fizielle Version von Microsoft er¬ 
scheint, wird auch dieser Fehler be¬ 
hoben. 

Beim Installieren des DOS muß auch 
der nichtflüchtige RAM-Speicher in¬ 
itialisiert werden, hier werden die fe¬ 
sten Daten eingetragen, wie Lauf¬ 
werkskonstellationen , Festplattenda¬ 
ten, Uhrzeit und Datum. Beim Aufruf 
dieser Daten mit SETUP können diese 
Daten verändert werden. Man kann 
zwischen den verschiedenen Lauf¬ 
werksformaten wählen, so kann das 
Laufwerk A: außer dem eingebauten 
3.5-Zoll- mit 1.44 MByte Kapazität 
auch ein 1.2-MByte-5.25-ZoIl-Lauf- 
werk oder ein 360-kByte-5.25-Zoll- 
Laufwerk sein, gleiches gilt für das B- 


Laufwerk. Auch für eine zweite Fest¬ 
platte ist ein Platz vorgesehen, die Be¬ 
zeichnung lautet D:. Dies darf man je¬ 
doch nicht mit einem logischen Lauf¬ 
werk, einer Partition auf der internen 
Platte verwechseln. 

Die Installation des DOS 4.01 gestaltet 
sich ebenfalls einfach, das INSTALL- 
File legt ein Unterverzeichnis mit Na¬ 
men \ DOS an und kopiert alle Files 
der beiden Systemdisketten in dieses 
Verzeichnis. 

Bei der DOS-Version handelt es sich 
übrigens nicht direkt um DOS 4.01, 
sondern um DOS 4.011. Bei den Tests 
mit der 4.01-Version bemerkte man bei 
Amstrad einen Fehler im DOS, der 
selbst behoben wurde. Diese verbes¬ 
serte Version wurde von da an den 
Rechnern beigegeben, dies wird sich 
allerdings ändern, sobald eine offiziel¬ 
le neue Version von Microsoft er¬ 
scheint. 

Monitor, Tastatur und Maus 

Unser Test-PC2386 war mit dem 
VGA-High-Resoiution Farbmonitor 
ausgestattet, einem Monitor, dem man 
beim Kauf auch den Vorzug geben soll¬ 
te. Durch die hohe Auflösung sind 
Farbwiedergabe und Schärfe des Bil¬ 
des fast optimal zu nennen. Selbst bei 
Zeichenprogrammen mit schnellen 
Farbwechseln wurden alle Farben gut 
voneinander getrennt dargestellt. 

Durch die interne universelle Grafik¬ 
karte lassen sich fast alle bekannten 
Modi auf dem Monitor emulieren, so 



Abb.2: Das Herz des PC 2386: Der 80386-Prozessor. Mit seinem 32-Bit-BussyStem, den erweiterten 
Befehlen und einer speziellen Abarbeitung derselben macht erden PC2386 zu einem Rennpferd in der 
MS-DOS-Welt 
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Abb.3: Windows386 ist eine komfortable Benutzeroberfläche, die auf die 
Besonderheiten der Computer mit einem Prozessor des Typs 80386 zuge¬ 
schnitten wurde. Dazu gehört beim 2386 auch die Benutzung des ’Extended 
Memory ', des erweiterten Speichers von 4 MByte 



Abb. 4: Die Systemhandbücher des PC 2386 bieten eine geballte Fülle an 
Informationen. Zu MS-DOS, GW-BAS/C und MS-Windows findet der Be¬ 
nutzer nicht nur Details, sondern auch Kurzbeschreibungen 


sind möglich: CGA, EGA, VGA, Her¬ 
cules. Alle Modi lassen sich über das 
DEVICE-Programm aufrufen, unter 
Hercules sind sogar zwei verschiedene 
Bildschirmgrößen möglich. 

Der Anschluß des Monitors geschieht 
über die neunpolige Buchse an der 
Rückseite der Zentraleinheit. Hier 
kann aber auch ein Fremdmonitor an¬ 
geschlossen werden, durch den Stan¬ 
dardanschluß lassen sich fast alle gän¬ 
gigen Monitortypen anschließen, vor¬ 
ausgesetzt es handelt sich um Monitore 
mit Analogeingang, denn nur diese 
können die Farbenvielfalt einer VGA- 
Karte darstellen. 

Die Maus des PC 2386 ist ein alter Be¬ 
kannter. Sie fand schon an den PCs 
1512/1640 Verwendung und hat weder 
ihr Aussehen noch ihr technisches In¬ 
neres entscheidend verändert. Hier 
hätte man sich doch eine Verbesserung 
gewünscht, da sie immer noch durch 
den Steg zwischen den Tasten etwas 
schlecht in der Hand liegt. Wer etwas 
Komfortableres möchte, kann ja immer 
noch eine der auf dem Markt angebote¬ 
nen Mäuse erwerben. 

Leider besitzt der PC 2386 keinen RE- 
SET-Taster, außerdem ’Dreifach-Not- 
ausstiegsgriff gibt es nur die Möglich¬ 
keit, den Rechner nach einem Total¬ 
absturz aus- und wieder einzuschalten. 
Dafür besitzt der eingebaute Lautspre¬ 
cher einen Lautstärkeregler, der das 
Gepiepse der ’Sounderzeugung’ er¬ 
träglich macht. 

Bei der Tastatur handelt es sich um eine 
MF2-Tastatur mit 102 Tasten. Sie ge¬ 
nügt den Anforderungen, die an eine 
Multifunktionstastatur heute gestellt 


werden, voll und ganz, die Tasten sind 
gut zu tippen, und der Druckpunkt läßt 
sich gut spüren. Die Funktionstasten 
sind ja im Gegensatz zum PC 
1512/1640 oberhalb der Buchstaben 
angelegt, numerischer Tastenblock, 
Cursor-Tasten und Sondertasten sind 
dank der neuen Aufteilung wesentlich 
besser zu erreichen als mit der alten Ta¬ 
statur. Das Arbeiten mit dieser Tasta¬ 
tur ist auch bei längerem Tippen ermü¬ 
dungsfrei, zumal das Design der Tasta¬ 
tur ein gutes Aufliegen auf der Oberflä¬ 
che des Tisches möglich macht. 

Kauf-V ar iationen 

Den PC2386 kann man in vier ver¬ 
schiedenen Ausführungen bekommen: 

— PC 2386 mit Festplatte und 1.44 
MByte-Laufwerk mit monochro¬ 
men 12-ZolI-Monitor für 9999,- 
DM, 


— PC 2386 wie oben mit 14-Zoll-Co- 
lor-Monitor für 10.499,- DM, 

— PC 2386 mit hochauflösendem 
12-Zoll-Colormonitor für 10.899,- 
DM und 

— PC 2386 mit hochauflösendem 
14-Zoll-Colormonitor für 11.299,- 
DM. 

Den meisten Nutzen und den meisten 
Spaß bei der Arbeit bringt natürlich die 
letzte Version, sie ist aber auch mit Ab¬ 
stand die teuerste. Wenn man sich auf 
dem 386er Markt einmal umschaut, be¬ 
merkt man jedoch recht schnell, daß 
man hier für sein Geld einen reellen 
Gegenwert erwirbt, und damit hat sich 
der Kauf eigentlich schon rentiert. 

Ob) 


■■■ THE LANDMARK CPU SPEED TEST: SPEED Version 0.99 
Copyright 1986 Landmark Software 
1142 Pomegranate Court 
Sunnyvale CA 94087 
408-733-4035 

This System is performing like an IBM AT running at: 

Mhz 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



19.6x0.2xance relative to 4.77 Mhz PC or XT: 


lx 2x 3x 4x 5x 6x 7x 8x 

Current time: 10:48:12 Elapsed time since starting program: 00:00:05 

Current test: 83 Elapsed time for the latest test: 32 ms 

_ Fl HELP Q TOGGLE QUIET MODE C TOGGLE COLOR ESC EXIT TO DOS 

Abb. 5: Der Landmark-Test überschlägt sich: der 2386 bringt ISfache XT-Geschwindigkeit 
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Kleine Begriffskunde zum PC2386 

Wie immer, wenn neue Computer auf dem Markt erscheinen, werden die Neuheiten oder Verbesserungen 
in möglichst interessante Worte gekleidet, wohl um dem Gerät zu mehr Attraktivität zu verhelfen. 
Leider sind nicht jedem alle Begriffe geläufig und so kann es man chmal zu Mißverständnissen beim 
Kauf kommen. Damit Sie nicht nur Hauptbahnhof ohne Anschlußverbindung verstehen, 
hier eine kleine Aufstellung von Fachbegriffen: 


Cache-Speicher - Wie schon im 
Text angesprochen, dient der Cache- 
Speicher als Zwischenspeicher für 
Dateien, die vom Laufwerk geladen 
werden. Bei mehrmaligem Aufruf 
werden diese Dateien einfach in den 
Hauptspeicher eingeblendet, stehen 
somit dem Anwender schneller zur 
Verfügung, als wenn sie dauernd vom 
Laufwerk nachgelesen werden müs¬ 
sen. Bei PC 2386 stehen dem Anwen¬ 
der 576 kByte Cache-Speicher zur 
Verfügung. 

Hauptspeicher - Er ist auch der 
Programmspeicher, in dem Program¬ 
me von Diskette oder Platte geladen 
und vom Prozessor ausgeführt wer¬ 
den. Der Hauptspeicher beträgt beim 
PC2386, wie auch bei den 'kleineren’ 
Geräten 2286, 2086 oder PC 1640 
640 kByte, je nach Gerät kann aber 
noch ein externer Speicher hinzukom¬ 
men. Beim PC2386 beträgt dieser ex¬ 
terne Speicher 3456 kByte, also 3.4 
MByte, der Gesamtspeicher beläuft 
sich also auf 4 MByte. 

Interleave-Faktor - Ein gerade bei 
den AT und 386er Computern schnell 
geläufiges Wort. Der Interleave gibt 
beim Formatieren der Festplatte an, 
in welcher Reihenfolge Sektoren, die 
Programmteile enthalten, auf die 
Platte geschrieben werden. Bei einem 
Interleave von 1 werden die Sektoren 
in Reihe geschrieben (z.B.: 513/514/ 
516/...), damit werden Sie bei einer 
Umdrehung der Platte auch wieder 
eingelesen. Der Vorteil: Eine enorme 
Geschwindigkeitssteigerung. 

Interleave-Faktoren > 1 legen Sekto¬ 
ren in anderen Reihenfolgen ab, die 
eine längere Ladezeit benötigen. 

LIM-EMS - Beim ersten Mal könn¬ 
te man beim Hören dieses Kurz¬ 
wortes auf den Gedanken kommen, 
daß irgendein unerfahrener Kartenle¬ 
ser kurzfristig Limburg von der Lahn 
an die Ems verlegt hat, des Rätsels 
Lösung ist für Nichteingeweihte je¬ 


doch noch rätselhafter. Versuchen wir 
trotzdem eine Erklärung: 

Der 8086-Prozessor (PC 1512/1640) 
organisiert im Normalfall bis zu 640 
kByte RAM (Hauptspeicher). Ohne auf 
technische Details einzugehen, stimmt 
die Behauptung, daß es wesentlich 
mehr sein könnte, nämlich genau 1 
MByte. Beim 80386 sieht es sogar 
noch besser aus (bestes Beispiel auf den 
vorangegangenen Seiten). Dieser 
'Mehr'-Speicher oder externer Spei¬ 
cher muß natürlich verwaltet werden, 
und dies geschieht durch ein Steuerpro¬ 
gramm. Im Amstrad PC 2386 ist eine 
LIM-Erweiterung eingebaut und dieses 
LIM steht für ’Lotus/Intel/Microsoft’, 
die bekanntesten Hersteller von Soft- 
und Hardware. Und da das Ganze sich 
auf externen Speicher bezieht, die ver¬ 
waltet werden müssen, nennt man die 
Verwaltung 'Extended Memory Speci- 
fication’ (EMS). Das Steuerprogramm, 
welches den externen Speicher verwal¬ 
tet, blendet feste Blöcke dieses Speichers 
in die Adressierung ein, so daß Program¬ 
me wie Windows386 auf mehr Speicher¬ 
platz zugreifen können, als die normalen 
Versionen, die an die Speicheraufteilung 
des 8086 (640 kByte) gebunden sind. Für 
den Anwender besteht eigentlich kein 
Grund, sich näher mit dem LIM-EMS 
zu befassen, da die Organisation auto¬ 
matisch abläuft. Interessant dürfte es 
für Programmierer werden, die diesen, 
eigentlich selten benutzten RAM-Be- 
reich für ihre Programme nutzen wol¬ 
len. 

Nicht-flüchtiger Speicher — Manch¬ 
mal ist es schwer, für englische Begrif¬ 
fe deutsche Umschreibungen zu fin¬ 
den, so auch bei NfS. Es handelt sich 
dabei nicht um einen brav im Computer 
verbleibenden RAM-Chip, sondern um 
das batteriegepufferte RAM (Schreib- 
Lese-Speicher). Der NfS des PC 2386 
enthält Informationen über die System¬ 
konfiguration sowie über die ange¬ 
schlossenen Laufwerke (Festplatten 
und Floppies), über Zeit und Datum, 
über den externen Speicher und den 
Hauptspeicher. Diese Daten können 


jederzeit geändert werden, bleiben 
aber wegen der eingebauten Batterien 
auch nach dem Ausschalten erhalten. 

Port — Im Englischen kann man sich 
darunter einen Hafen vorstellen, in¬ 
dem Güter umgesetzt und verladen 
werden. Beim Computer trifft dies im 
weitesten Sinne auch zu: Ports sind 
Schnittstellen, die Daten werden auf¬ 
bereitet und an die Peripherie ver¬ 
schickt, beim parallelen zum Beispiel 
an den Drucker, beim seriellen zum 
Beispiel an ein Modem oder einen 
Akustikkoppler (und natürlich zu¬ 
rück). Mit Ports werden also Schnitt¬ 
stellen 'nach draußen’ gekenn¬ 
zeichnet. 

Prozessor — Ohne ihn geht nichts. 
Der Prozessor ist die Zentrale eines 
jeden Computers. Er arbeitet Befehle 
nach bestimmten Mustern ab, gibt 
Anweisungen an andere Bausteine, 
stellt Berechnungen an, kurz und gut, 
er steuert das Raumschiff 'Compu¬ 
ter'. Je mehr ein Computer kann (an 
Befehlen), je größer sein Daten- und 
Adreßbussystem ist, desto leistungs¬ 
fähiger und schneller ist er. Am An¬ 
fang standen bei den PCs die 
8088/8086-Prozessoren, inzwischen 
stellt der 80386 zur Zeit die höchste 
Baustufe dar, jedoch wird bereits ein 
80486 getestet. 

VGA - Abkürzung für Video-Gra- 
phics Adapter, umschreibt kurz den 
bislang besten Grafikmodus, den ein 
PC haben kann. Unter VGA sind 
gleichzeitig 256 aus einer Palette von 
262144 Farben auf dem entsprechen¬ 
den Monitor darstellbar. Die Auflö¬ 
sung des Bildschirmes beträgt beim 
PC 2386 im VGA-Modus 640*480 
Punkte (Pixel), damit lassen sich sehr 
feine Grafiken schon ohne 'Hilfsmit¬ 
tel' erstellen. 

Machbar ist dies durch analoge 
Signalinformationen, die im Gegen¬ 
satz zu digitalen weitaus größere Ab¬ 
stufungen zulassen. 

Gb) 
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CPC 

Superpack 

Nr. 1-5 

5 Stück = 35,-DM 

Best.-Nr.: 33 



Fast alles wird heute teurer, da ist es 
doch erfreulich, wenn wir Ihnen etwas 
zeigen, was bei gleichbleibender Quali¬ 
tät preiswerter wird: Unsere CPC-Son- 
derhefte 1-5. Sie bieten Ihnen alles, 
was den Prozessor Ihres CPC höher tak¬ 
ten und Ihr Herz höher schlagen läßt. 
Nicht nur Informationen rund um den 
CPC, nein, auch Super- Software zum 
Abtippen, Super-Hardware zum Nach¬ 
bauen. 

*** Insgesamt über 1 MegaByte an Pro • 
grammen *** bekommen Sie für den sa¬ 
genhaft günstigen Preis von DM 35, -. 
Hier ein kleiner Überblick über diese 
Fundgrube an Computerspaß: 

- Anwendungen: 

Relative Dateiverwaltung, BASIC-Erwei- 
terungen, Datenfernübertragung 
Floppyprogrammlerung, Diskettenmoni¬ 
tor, Soundprogramm. 

_Hardware* 

Anschluß von Zweitflopples, Bauanlei¬ 
tungen rund um den CPC. 

- Spiele: 

Abenteuer, Actlon, Knobeln, Rollenspie¬ 
le. Tips und Hinweise, falls Sie mal 
nicht weiterkommen. 

- Tips und Tricks: 

Alles über CPC 464/ 664/ 6128, CP/M, 
Assembler. 

Und das Ist nur ein kleiner Querschnitt 
der großen Programmviellalt der CPC- 
Sonderhefte 1 - 5. 

Also, wenn Sie den Zug nicht verpassen 
wollen - kaufen Sie sich geballte CPC- 
Infnrmatlnn 7iim Snndnmrols. 


Jetzt wird es aber 
höchste Eisenbahn,... 



...daß Sie endlich 
unsere CPC-Sonder- 
hefte kennenlernen! 



tobatfa«' i •* hIK uM*on 

■OntoftnwMi«» 

CaO ä 


Kraftfutter für Ihren 
CPC - jetzt zum 
günstigen Preis. 



I'jll V/ura 


ii'Mo*, 


It»x-Anwi»r 


00 »«ErwflU 
Di*Mc«y 


Crunajngon: 


Uoers.cht 


SplOlfTtipO 




v-M-ßf.-jmi'-jf 
yiii-j/iuüjüt 
- und 

iy’iiuyiiäyll-j I 

Duiylvarv/yliuJ 


Spiele: 


- Ja-Ja JUUJä 


Anw endung 

- Laif 

- 'itetiiätüöäSii 


Sonderheft 6/88 

Grundlagen, viele Tips, nützliche Anwendungen und 
tolle Spielprogramme - ein Muß für jeden CPC-Anwen- 
der. Dieses Sonderheft behandelt das gesamte Spek¬ 
trum möglicher CPC-Einsatzgeblete und bietet Informa¬ 
tionen für jedermann. U.a. komplette Lagerbuchfuh- 
rung, relative und sequentielle Datei, neues Dlsketten- 
DOS, viele Lernprogramme, CP/M und Turbo Pascal 
und, und, und... * 

Best.-Nr.: 312 14,— DIVI 


lüprogramm. machen Sie 
Spiele wie COSMIC, AUXI 
Sie in Atem halten. Tips 


Sonderheft 7/88 

Wieder eine Fundgrube für CPC-Besitzer: 

Music-Star ist ein tolles Soundi 
Ihren CPC zum Synthesizer. S( 

LIA, SUPERTRON 3D werden Sie in Atem halten. Tips 
und Tricks rund um die CPCs in Assembler, CP/M und 
BASIC. Ein Sprachsynthesizer zum Nachbau, Grundla¬ 
gen über die Floppy- Programmierung- alles das fin¬ 
den Sie im Sonderheft 7. * 

Best.-Nr.: 313 14,— Um 



Grundlagen: 

Alles ober Roppy- 
Programmlerung 


Spiele: 

3D-"fton 

Auxllia - Im Reich der Magie 


Anwendungen; 

Musikprogramm de Luxe 
Chemie - ganz einfach 


Viele Tips und 
Ergänzungen 


Tips & Tücks : 

Stark 

Baslc-Programrr»# 

verkürzen 


Hardware 


Sprachsynthesizer 
de Luxe 


* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung 
(Unverbindliche Preisemptehiung) Bitte benutzen Sie die Bestellkarte. 

DMV-verlag - Postfach 250 - 3440 Eschwege 




















Der CPC mag ja ein Super-BASIC haben, seine Floppy enorm schnell sein, 
sein Z80-Prozessor leistungsfähiger als andere — nur der Sound des einge¬ 
bauten Sound-ICs läßt eingefleischte Musikfans mit dem Kopf schütteln 
und den Ohren wackeln. Schaut man sich bei der Konkurrenz mit dem gro¬ 
ßen C einmal den eingebauten Soundchip an, oder noch besser, hört man ei¬ 
nige Demos zum Beispiel von Spielen an, glaubt man kaum, daß man es mit 
einem 8-Bitter zu tun hat. Diejenigen, die den MOS6581 (das Soundwunder) 
kennen, wissen, wovon hier die Rede ist. Aber nicht neidisch werden: Hier 
ist eine Bauanleitung, mit deren Hilfe dieser Soundchip sich an den CPC 
anschließen läßt. 


Musikalischer Leiharbeiter 

MOS6581 - Der Soundchip des C-64 

am CPC 


Bitte genau lesen: 

Zuvor ein paar allgemeine Bemerkun¬ 
gen, die jedoch sehr wichtig sind: 
Diese Bauanleitung ist vor allem für 
diejenigen gedacht, die schon Erfah¬ 
rung im Bauen elektronischer Schal¬ 
tungen haben, und denen die Arbeit mit 
dem Lötkolben leichtfällt. Deshalb ha¬ 
ben wir auch bewußt auf den Abdruck 
eines Platinen-Layouts verzichtet, weil 
die Schaltung ohne Probleme auf einer 
Lochraster-Platine aufbaubar ist. Für 
diejenigen, die gerne ein Layout hät¬ 
ten, halten wir dieses bereit, es kann 
durch Zusendung eines frankierten 
Rückumschlages angefordert werden, 
die Schaltpläne werden ebenfalls mit¬ 
geliefert. Die Bauteile sind, bis auf den 
MOS6581, Standardbauteile und bei 
jedem Elektronikladen zu bekommen. 
Der MOS6581 ist dank der großen 
Verbreitung des C-64 ebenfalls bei vie¬ 
len Firmen zu beziehen, einige haben 
wir am Ende des Textes zusammenge¬ 
stellt. Und nun wünschen wir Ihnen 
viel Vergnügen beim Bau Ihres 
’Soundwunders’. 

Der Aufbau der Schaltung 

Das Herzstück der Schaltung bildet der 
MOS6581, der für die Klangerzeugung 
zuständig ist. Er enthält drei Tongene¬ 
ratoren. Die fünf Adreßleitungen, die 
zur Auswahl der Register zur Verfü¬ 
gung stehen, werden direkt vom Ex¬ 
pansionport an das IC5 gelegt. Der Da¬ 
tenbus ist durch IC3 (8 bidirektionale 
Bustreiber) gegen den Expansionport 
gepuffert. Der Grundtakt für Zugriffe 
und Tonerzeugung wird durch IC4 
(Dekadenzähler) aus dem Systemtakt 
generiert. Dies geschieht durch Halbie¬ 
rung der Frequenz. Das bedeutet, daß 


dem MOS-Baustein eine Frequenz von 
4 MHz zur Verfügung steht. Die Bau¬ 
steinauswahl durch den Computer, also 
die Erzeugung des Chip-Select-Si- 
gnals, wird von IC1 (achtfach NAND- 
Gatter) und IC2 (4 OR-Gatter) über¬ 
nommen. Am NAND-Gatter liegt der 
obere Adreßbus an. Das bedeutet, 
wenn an die Adresse &FFxx ein Zu¬ 
griff erfolgt, wird der Ausgang LOW. 
Da der CS allerdings nur bei einem IO- 
Zugriff wirksam werden soll, wird der 
Ausgang des NAND-Gatters über ein 
OR-Gatter mit dem IO-Request Signal 
gekoppelt. Der MOS-Baustein kann 
ein externes Signal verarbeiten, durch 
Filter beeinflussen und seine Lautstär¬ 
ke bestimmen. Deshalb wird das Sound¬ 
signal vom CPC-eigenen Generator an 
den entsprechenden Eingang gekop¬ 
pelt. Da allerdings der Baustein 
ein sehr stark getriebenes Si¬ 
gnal benötigt, wird zur Koppe¬ 
lung ein Verstärker benötigt. 

Dieser Verstärker wird in der 
Schaltung Primärverstärker ge¬ 
nannt. Das Trimmpoti PI muß so 
eingestellt sein, daß am Ausgang 
des Verstärkers das Signal einen 
Wert von 2Vss (Spitzenwert) hat. 

Dies kann mit dem Oszilloskop ein¬ 
gemessen werden. 

Der zweite Verstärker dient als Endstu¬ 
fe für den Tonausgang des MOS-Bau- 
steins. Der Lautstärkeregler befindet 
sich am Gehäuse. Allerdings müssen 
bei voller Lautstärke im Dauerbetrieb 
die Verstärker-ICs gekühlt werden. 
Der Anschluß des Gerätes an den CPC 
ist recht einfach. Zuerst muß das Ver¬ 
bindungskabel zum Expansionport 
richtig angeschlossen werden. Wenn 
das geschehen ist, dann wird eine 12V 
Spannungsversorgung benötigt. Hier 
kann ein externes Netzgerät benutzt 


werden, aber auch die Spannung 
vom Monitor zum Laufwerk (beim 
CPC 664/6128) kann abgegriffen wer¬ 
den. In dem Fall kann das eingebaute 
Diskettenlaufwerk über den Synthesi¬ 
zer versorgt werden. Durch die be¬ 
grenzte Leistung des Monitor-Netzteils 
ist allerdings eher zu einem externen 
Netzteil zu raten. Zum Schluß muß noch 
der Lautsprecher angeschlossen werden. 
Jetzt ist die Schaltung betriebsbereit. 

Die Software 

Dieser Teil der Beschreibung soll sich 
nur auf die Befehlserweiterung bezie- 
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hen. Zu diesem Programm gehört ein 
BASIC-Lader (SIDLAD.BAS), ein 
Startprogramm (SIDMAN.BAS) und 
ein Binärteil (SIDMAN.BIN). Der Bi¬ 
närteil wird vom BASIC-Lader er¬ 
zeugt. Er wird vom Startprogramm 
nachgeladen und die Befehle werden 
initialisiert. Drei neue Befehle stehen 
dann dem Programmierer zur Verfü¬ 
gung: 


1. OFF 

Dieser Befehl fordert keine Pa¬ 
rameter. Wenn er ausgeführt 
wird, werden alle laufen¬ 
den Generatoren ausge¬ 
schaltet. 


74LS32 


88_L 


89_2 


810 3 


811 4 


812 5 


813 6 

74LS 

81411 


8151? 




IORQ 


12 21 


3 







ft 


6 

f 


7 

Ji. 


8 

z. 


-UL 


-LL 


LZ 


-LZ 


es- 


-LZ 



♦ 5 U 

GNO 

♦ 12 U 

IC1 

14 

7 

— 

IC2 

14 

7 


IC3 

20 

10 

— 

IC4 

5 

M 

— 

IQ 

25 

14 

28 



ZJä 





IC 5 


SIO 6581 


26 

«e 


SIN 


2 7 


SOUT 


Cl=C2=470pf 


SOUT AUDI ° 

^- 

2.2k 


TÜMJ-^ 

OUT 


Abb.l: Das Schaltbild fiir den Anschluß des Soundchips SID am CPC. Die Tabelle in der linken Ecke 
zeigt den Anschluß der Stromversorgung am jeweiligen IC an 


< Tongenerator > : Der MOS-Bau- 
stein hat drei Generatoren, also kann 
der Parameter die Werte 1 bis 3 an¬ 
nehmen. 

< Tonhöhe > : Hier müssen die aus der 
Frequenz errechneten Werte eingesetzt 
werden. Die Umrechnungsformel 
lautet: 

Freq*2 t 24/2000000 

< Wellenform>: Hier können die 


2. VOL, < Lautstärke > 

Der Parameter kann die Werte 0 bis 15 
annehmen und gibt die Gesamtlautstär¬ 
ke der Generatoren und der externen 
Signalquelle (Interner Tongenerator) 
an. Hierbei bedeutet 0 = stumm und 15 
= volle Lautstärke. 


3.SOUND, 

<Tongenerator> , <Tonhöhe>, 

< Wellenform > , < Länge > , < Laut¬ 
stärke >], f < Anschlag > ], [ < Ab¬ 
schwellen >], [< Ausklingen>], 

[ < Tastverhältnis > ] 

Dieser Befehl ist für die Steuerung der 
Tongeneratoren zuständig. Nur die er¬ 
sten vier Parameter sind notwendig, 
um einen Ton zu spielen. Für alle ande¬ 
ren werden Standardwerte gesetzt. Im 
folgenden möchte ich die Parameter in 
Stichworten beschreiben und ihre Wer¬ 
tebereiche eingrenzen. Für nähere 
Auskünfte kann die beiliegende Regi¬ 
sterbeschreibung herangezogen 

werden. 


AP 18 
AP1B 
8P28 
8P2B 
RESET 
02 
R/W 
CS 
80 
81 
82 

83 

84 
GND 


28 


MOS 6581 
(SID) 


14 


15 


Udd ( + 12 Uolt) 
AUDIO out 
EXT.in 

Ucc (+5 Uolt) 
POT x 


POT y 

D7 

D6 

05 

D4 

D3 

D2 

Dl 

D0 


Registerbeschreibung (28 Reg.) 

Tongenerator Nr 

: 1 

2 

3 

(1) 


0 

7 

14 



1 

8 

15 

(2) 

Pulsbreite LOW 

2 

9 

16 


Pulsbreite HIGH 

3 

10 

1/ 

(3) 

Steuerregister 

4 

1 1 

18 

(4) 


_ 

_ 

27 


Hul1kurvengenerator 3 

- 

— 

28 

(5) 

ATTACK/DEC89 

5 

12 

19 


SUSTAIN/RELEASE 

6 

13 

20 


(6) Filterfrequenz LOW 21 

Filterfrequenz HIGH 22 

(7) Filterresonanz u. -schalter23 

(8) Lautst.u.Fi1terSteuerung 24 

(9) 8/D - Wandlar 1 25 

8/D - Wandler 2 26 


Pinbelegung 6581 


PIN 


PIN 5 


PIN 6 


PIN 

PIN 


PIN 


PIN 

PIN 


PIN 


PIN 

PIN 


PIN 

PIN 


l-4:8nschlusse für 
zuei externe 
Kondensatoren 
für die Filter 
:Ein LOW-Pegel 
an diesen Pin 
setzt alle Re¬ 
gister auf Null 
:Hier 1iegt der 
Takt für die 
Tonerzeugung an 

7 :LOW=schreiben 

HIGH=1esen 

8 :Durch LOW wird 

der SID akti- 
w i ert 

9—13:8n diese Pins 

Mird die Adres¬ 
se für das ent¬ 
sprechende Re- 

S ister angelegt 
asseanschluD 
15-22: Datenleitun¬ 
gen des SID 
23/24:Eingänge der 
8D-Wand1 er 
:+5 Uolt 
:Anschluß für 
externe Sig¬ 
nal quel1e 
:NF-Ausgang für 
das Sound-Sig¬ 
nal 

:+12 Uolt 


25 

26 


27 


28 


Registerbeschreibung 
des SID 6581 


Abb.2: Die Pinbelegung des MÜS658I mit der Registerbeschreibung 
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Werte 0 bis 15 eingesetzt werden. 
Sinnvoll sind allerdings nur folgende 
Werte: 

1 = Dreiecksschwingung 

2 = Sägezahnschwingung 
4 = Rechteckschwingung 
8 = Rauschen 

< Länge >: Dieser Parameter gibt die 
Länge des Tones in 1/ 100sek. an. 
Die folgenden vier Parameter geben 
den Lautstärkenverlauf des Tones an 
(siehe Registerbeschreibung (5) ) 


< Lautstärke>: Werte 0 bis 15, 
0 = stumm, 

15 = volle Lautstärke 

< Anschlag > : Werte 0 bis 15, 

0 = hart 

15 = weich 

< Abschwellen > : Werte Obis 15 
0 = schnell 

15 = langsam 

< Ausklingen > : Werte 0 bis 15 
0 = schnell 

15 = langsam 


<Tastverhältnis> : Werte 0 bis 4095, 
Dieser Wert gibt das Verhältnis zwi¬ 
schen High- und Lowphase des Recht¬ 
ecksignals an. Dadurch kann die 
Klangfarbe zusätzlich beeinflußt 
werden. 

Beispiel für die Soundprogram¬ 

mierung 

Schauen wir uns doch einmal das Expe¬ 
rimentierprogramm (Listing 1) genau¬ 
er an: 

Damit der Synthesizer einen Ton spie¬ 
len kann, muß ihm dieser genau be¬ 
schrieben werden. Die Merkmale, die 
berücksichtigt werden müssen, sind die 
Tonhöhe, die Klangfarbe und die Art 
des Anschlags. 

Durch Beeinflussung der beiden letzten 
Eigenschaften ist es möglich, verschie¬ 
dene Instrumente zu simulieren. 

In einem Musikprogramm sollte eine 
gewisse Ordnung herrschen. Die Art 
des Anschlags sollte zusammen mit der 
Lautstärke und dem Tastverhältnis an¬ 
gegeben werden. Letzteres wird nur 
benötigt, wenn als Wellenform die 
Rechteckschwingung ausgewählt wird. 
Wurde der Klang in dieser Weise be¬ 
schrieben, muß noch die Tonhöhe be¬ 
stimmt werden. Diese wird physika¬ 
lisch mit der Frequenz, die in Hertz ge¬ 
messen wird, angegeben. Der SID ist 
aber nicht in der Lage, diesen Wert 
korrekt zu verarbeiten. Man muß die 
Frequenz erst mit einer Formel 
(Wert= Frequenz* 2T24/ 2000000) in 
den richtigen Parameter umrechnen. 



Abb.4: Das Blockschaltbild der gesamten Schaltung 
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Das Beste vom aktuellen Spielemarkt für alle CPCs 



FUGHT ACE Trattic Control, Strike For- 
Disk. 3“ 65,- DM* 



ARCADE MUSCLE 

Die Actioncompilation. Fünf Spitzenspiele 
zum Sparpreis. 

Cass. 49,- DM* Disk. 3“ 69,- DM* 





fpSä'Irr- 

Disk. 3“ 59 . 







'usrrn 

'rami* 


NINJA 

Der letzte Ninja muß sein gefährlichstes 
Abenteuer bestehen. Ein Actionspiel für 
Joystickprofis! Disk . 3 - 54i . dm* 


«mivic OC I IVIMI £ 


Snooker, Hang On, Jan Bothams, Test Match 
Basket Master, Track + Field, Nick Faldo, 
Championship Sprint, Matchday II. 

Cass. 45,-DM" Disk. 3“ 65,-DM* 


FOOTBALLMANAGER II 

Managen Sie Ihren eigenen Fußballclub. Noch 
besser, bunter und spieibarer als der erste Teil. 
Cass. 35,-DM* Disk. 3“ 49,-DM* 


^ssssääs^E” 


7Q . nm 


ynd Winter Games 


FORCES MAGIQUES 

Magische Kräfte für Ihren CPC! Fünf klasse Spiele im Sparpack. 
Pink Panther, Clever & Smart, Dakar 4x4, Operation Nemo und 
Western Games. Cass. 39,- DM* Disk. 3“ 


59,-DM* 



Super Sampler 


HISTORY IN THE MAKING 

Die Supercompilation. 15 Spitzentitel 
für Ihren CPC. Spannung, Action und 
Abenteuer. Disk . T 84y . DM * 


COMMAND PERFORMANCE 

Zehn Spiele, die Geschichte mach¬ 
ten! Vom gelungenen Sportspiel bis 
zum actionreichen Weltraumspiel, 
Entertainment nur vom Feinsten. 

Cass. 49,-DM* Disk. 3“ 69,-DM* 


CLASSIC GAMES 4 

3D-Schach, Bridge, Damespiel, Back¬ 
gammon. 

Cass. 39,- DM* Disk. 3“ 54,- DM* 

10 HIT GAMES 

Cass. 44,-DM* Disk. 49,-DM* 


SOLID GOLD 


Disk. 3“ 65,- DM* 


>7 * • I 

/ i zä \ 





MST 
% \ 


*• 

WK I Wf - 


TuMfirnGamwj 

_ ** W 


Bitte verwenden Sie für Ihre Bestellung unsere Postkarte 

* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das In¬ 
land 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung. 


FORCES MAGfOUES 
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Zum Schluß wird die Wellenform an¬ 
gegeben und das Key-Bit gesetzt. Da¬ 
mit wird der Ton gestartet. Mit einer 
Warteschleife wird seine Dauer be¬ 
stimmt. Nach Ablauf der Schleife wird 
das Key-Bit wieder auf ’O’ gesetzt, um 
den Ton zu unterbrechen. 

Das Experimentierprogramm steuert in 
dieser Weise den ersten Tongenerator. 
Einige Änderungen der Werte geben 
Aufschluß über die klanglichen Mög¬ 
lichkeiten des SID. 


Zum Abschluß... 


Abb. 6: Ein Muster¬ 
aufbau auf Loch¬ 
rasterplatine 



...noch ein paar Hinweise, wo der 
Soundchip und die anderen Bauteile zu 
beschaffen sind: 

Conrad electronic 

Klaus-Conrad-Str. I 

8452 Hirschau 

Tel.: 09622/30-111 

Radio RIM GmbH 

Postfach 20 20 26 

Bayerstr. 25 

8000 München 2 

Tel.: 089/551702-0 

Elektronische Geräte und Bauteile 

Klaus Reichelt 

Postfach 10 40 

Marktstr. 101-103 

2940 Wilhelmshaven 1 

Tel.: 04421/26381 

Der Chip ist im übrigen bei fast jedem 

Fachhändler zu Finden, der C-64-Re- 

paraturen vornimmt. 

Abb.5: Die Bauteile- 
(Maik Wojcieszak/jb) listeför die Schal¬ 

tung. Alle Bauteile 
sind bis auf den 
Soundchip Standard- 
Bauelemente 


Die Bauteilliste zum Schaltplan: 



Widerstände: 

R8.R16 


10 Ohm 


RIO 


510 Ohm 


R2 


2 kOhm 


RI, R9 


2,2 kOhm 


R6, R14 


4,7 kOhm 


R3, R4, R5, R11, R12, R13 

100 kOhm 


R7, RI 5 


150 kOhm 

Kondensatoren: 

C7 


100 nF 


C9, CI3 


470 nF 


CI, C2 


470 pF 

(Elko) C4, C6, C11, C12 


10 m F 

(Elko) 

C3, CIO 


22 ß F 

(Elko) 

C5 


100 nF 

(Elko) C8, C14 


2200 nF 

Halbleiter: 

Di, D2, D3, D4 

Diode 1 N 4001 


IC1 


SN 74 LS 30 


IC2 


SN 74 LS 32 


IC3 


SN 74 LS 245 


IC4 


SN 7490 


IC5 


MOS 6581 


IC6, IC7 


TDA 2030 

Potentiometer: 

PI 

22 kOhm log (Trimmpoti) 


P2 

22 kOhm log 

Sonstiges: 

IC-Sockel: 3 x 14polig 



1 x 20polig 




1 x 28polig 




Lautsprecher: 4 Ohm /10 



Watt 




für 464-664-6128 





10 REM Experimentierprograram [1361] 

20 ' [117] 

30 sid=&FF*256:' Basisadresse des Syntesiz [1870] 
ers 

40 ‘ [117] 

50 REM Einstellen des Tongenerators [1758] 

60 OUT sid+5,0:‘Anschiag/Abschwe11en [2943] 

70 OUT 3id + 6,15*16: ’Ha 1ten/Ausk1 Ingen [2419] 

80 ' [117] 

90 OUT sid+2,0:' Tastverhaeltnis LOW [3043] 

100 OUT s1d+3,8: Tastverhaeltnis HIGH [2308] 

110 ' [117] 

120 OUT sid + 24,15:' Gesamtlautstaerke [2192] 

130 ' [117] 

140 REM Spielen eines Tones [673] 

150 OUT sld+0,106:' Frequenz LOW [2026] 

160 OUT s1d+1,14: Frequenz HIGH [1156] 

170 1 [117] 


Lisling Musikalische Leiharbeiter 


180 

OUT 

sid+4,17: 

' Wellenform/Ton einschal 

[2207] 

ten 





190 

1 1 



[117] 

200 

FOR 

w=l TO 1000:NEXT w:' Dauer des Ton 

[1752] 

es 





210 

' 



[117] 

220 

OUT 

sid+4,0:' 

Ton ausschalten 

[2834] 

230 

END 



[110] 


10 REM Basiclader fuer Befehlserweiterung [2043] 
20 * [117] 

30 DATA 00,00,00,01,3E.15,01,00,FF,21,00,A [2763] 
0,56,ED,51, 937 

40 DATA 3D,C8,OC,23,18,F7,FE,00,20.07,21,1 [2342] 

B,AO,01,2 4, 1129 

50 DATA AO ,C9 ( FE,01,20,07,21,48, AO ,01,51,A [2612] 
0.C9.21.75, 1513 

60 DATA AO,01,7E,AO,C9,FE,00,28,09,FE,01,2 [2704] 
8,OC,F E,02, 1514 

70 DATA 28,OF,C9,21,04,AO,OE,04,18,OC,21,0 [2213] 
B.AO.OE.OB, 736 


Listing Musikalische Leiharbeiter 


24 PC 8’89 











































Hardware—i 


80 DATA 18,05,21,12,A0,OE,12,7E,57,3C,E6,0 [2250] 
1,CB,82,B2, 1287 

90 DATA 06,FF,77,ED,79,C9,7E,FE,01,20,05,1 [2638] 

1,AC,AO,18, 1730 

100 DATA OF,FE,02,20,05,11,AD,AO,18,06,FE , [3508] 
03,CO,11,AE, 1328 

110 DATA AO,23,3D,F5,1A,FE,05,28,FB,F3,3C, [3117] 
12,3D,E8,6 7, 1797 

120 DATA Fl,6F,D5,7C.CB,27,CB,27,CB,27,84, [2805] 

4F,06,00,70, 1757 

130 DATA FE,00,20,05,21,18,AO,18,OC,FE,01, [1989] 
20,05,21,48, 944 

140 DATA AO,18,03,21,75,AO,09,Dl,EB,01,09, [2666] 
00,ED,BO,FB, 1624 

150 DATA C9,F5.C5,D5,E5,3A,AF,A0,3D,F5,21, [2757] 

15,AO,CB,27, 2240 

160 DATA 4F,06,00,09,5E,23,56,3E,00,BB,20, [2860] 
03,BA,28,22, 853 

170 DATA 1B,72,28,73,B8,20,08,BA,20,05,Fl, [1873] 
F5,CD,DE,AO, 1822 

180 DATA Fl,3C,FE,03,20,04,3E,01,18,01,3C, [3402] 

32,AF,AO,E1, 1352 

190 DATA Dl,CI,Fl,C9,Fl,EB,4F,06,00,21,AC, [3186] 

AO,09,F5,7E, 2150 

200 DATA FE,00,28,DE,3D,77,F1,F5,D5,CD,C1, [3142] 
AO,Dl,C5,4E, 2437 

210 DATA 23,46,23,EB,70,2B,71,EB.Cl,Fl,C5, [3346] 

FE, 00,20,05, 1800 

220 DATA 11,00,AO,18,OC,FE,01,20,05,11,07, [2317] 
AO,18,03,11. 733 

230 DATA OE,AO,01,07,00,E5,ED,BO,Dl,El,01, [2687] 
24,00,1B,1B, 1349 

240 DATA ED,BO,F5,CD,BO,AO,Fl,F5,CD,DE,AO, [2808] 
18,99,21,FA, 2732 

250 DATA Al,C3,E3,BC,00,00,00,00,00,81,61, [2334] 
Al,00,00,00, 1158 

260 DATA FE,09,28,30,21,00,08,22,A7,A0,FE, [2547] 
08,28,40,F5, 1377 

270 DATA 3E,02,32,AB,AO,Fl,FE,07,28,41,F5, [2260] 
3E,02,32,AA, 1581 

280 DATA A0,F1,FE,06,28,42,F5,3A,AA,A0,F6, [2485] 
50,32,AA,AO, 2106 

290 DATA F1,FE,05,28,4B,F5,3A,AB,A0,F6,F0, [3299] 
32,AB,AO,Fl, 2357 

300 DATA FE,04,CO,18,53,DD,6E,00,DD,23,DO, [3368] 
66,00,DO,23, 1723 

310 DATA 22,A7,AO,DD,7E,00,DD,23,DD,23,E6, [2530] 
OF,32,AB,AO, 1846 

320 DATA DD,7E,00,DD,23,DD,23,E6,0F,32,AA, [2914] 
AO,DD,7E,00, 1831 

330 DATA DD,23,DD,23,CB,27,CB,27,CB,27,CB, [2249] 
27.47.3A,AA, 1779 

340 DATA AO,BO,32,AA,AO,DD,7E,00,DD,23,DD, [3281] 
23,CB,27,CB, 2020 

350 DATA 27,CB,27,CB,27,47,3A,AB,AO,BO,32, [2707] 
AB,AO,DD,6E, 1871 

360 DATA 00,DD,23,DD,66,00,DD,23,22,A3,AO, [2391] 

DD,7E,00,DD, 1760 

370 DATA 23,DD,23,CB,27,CB,27,CB,27,CB,27, [1497] 
32,A9,AO,DD, 1859 

380 DATA 6E,00,DD,23,DD,66,00,DD,23,22,A5, [2990] 
AO,DD,7E,00, 1651 

390 DATA E6,03,FE,00,C8,32,A2,AO,21,A2,AO, [2191] 
C3,OC,Al,FE, 2036 

400 DATA 01,CO,DD,7E,00,E6,OF,01,18,FF,ED, [2181] 
79,C9,FE,00, 1878 

410 DATA CO,F3,06,FF,OE,04,3E-,00,ED,79,21, [3629 ] 
04,AO,CB,46, 1604 

420 DATA 28,09,E5,C5,3E.00,CD,DE,A0,C1,E1, [2728] 
2E,0B,4D,3E, 1738 

430 DATA 00,ED,79,CB,46,28,09,E5,C5,3E,01, [2496] 
CD,DE,AO,CI, 1949 

440 DATA El,2E,12,4D,3E,00,ED,79,CB,46,28, [2835] 

05,3E,02,CD, 1373 

450 DATA DE,AO,21,AC,AO,3E,00,77,23,77,23, [2798] 
77,21,00,00, 1269 

460 DATA 22,15,AO,22,17,AO,22,19,AO,FB,C9, [2843] 

00,00,00,00, 1103 

470 DATA 00,00,00,00,00,00,00,00,53,4F,55, [2060] 
4E,C4,00,56, 607 

480 DATA 4F,CC,00,4F,46,C6,00,48,A3,C3,05, [2557] 
A2,4E,A3,C3, 1663 

490 DATA D6,A2,52,A3,C3,E4,A2,01,56,A3,21, [3521] 
3C,A3,CD,Dl, 2126 

500 OATA BC,01,58,A3,21,40,A3,CD,Dl,BC,01, [3259] 
60,A3,21,44, 1666 

510 OATA A3,CD,Dl,BC,CD,F4,Al,3E,OF,01,18 , [2749] 

FF, ED,79,C9, 2291 

Llsting Musikalische Leiharbeiter 


520 [117] 

530 REM Programm im Speicher einrichten [2476] 

540 adr=41132:MEMORY adr-1 [1413] 

550 FOR zei=l TO 49:summe=0 [1639] 

560 FOR wrt=l TO 15:READ byt$:byt=VAL("&"+ [3200] 
byt$) 

570 summe=summe+byt:POKE adr,byt:adr=adr+1 [1333] 
580 NEXT wrt [397] 

590 READ chsum: IF summeOchsum THEN PRINT" [5421] 
==> Fehler in Zeile ";ze1:END 

600 NEXT zei [510] 

610 ' [117] 

620 REM Programm als Binaercode abspeicher [2035] 
n 

630 SAVE"S1dman.b1n",b,&AOAC,735.&A365 [2216] 


10 ' Befehlseinbindung ( SOUND/VOL/OFF ) [2997] 
20 MEMORY &9FFF:LOAD"sidman.binCALL &A36 [2153] 
5 : NEW 


5 REM Drei klanggong [606] 

10 IOFF:|VOL,15 [1479] 

20 !SOUNO,1,2194,1,1000,0,0,14,5:GOSUB 30 [2706] 

21 !SOUNO,2,2764,1,1000,0.0,14,5:GOSUB 30 [2512] 

22 ISOUNO,3,3287,1,1000,0,0,14,5:END [2396] 

30 FOR w=l TO 1000:NEXT w:RETURN [1355] 


10 REM Kanon (DEMO) [1558] 

20 DATA 1,4,329,1,4,439,1,4,439,1,4,329,1, [2666] 
4,329,1,4,369,1,2,369 

30 DATA 1.4,277,1,4,293,1,4,246,1,4,329,1, [2089] 
4,329,1,4,439,1,4,219 J 

40 DATA 1,4,0,1,4,329,1,4,439,1,4,219,1.4. [24151 
0,1,4,277,1,4,293 ' 

50 DATA 1.4,246,1,4,329,1,4,329,1,2,439,1, [3224] 
4,0,1,4,329,3,8,554 

60 DATA 1.8,587,3,8,554,1,8,493,1,4,493,1, [2832] 

2.439.1.4.439.1.4.493 

70 DATA 1.4,493,1,4,415,1,4,415,1,8,439,1, [3268] 

8.415.1.8.439.1.8.493 

80 DATA 1,2,554,1,8,439,1,8,415,1,8,439.1. [28311 
8,493,1,4,554,1,4,439 

90 DATA 1.4,493,1,4,493,1,4,415,1,4,415,1, [2592] 
2,439,1,4,0,1,4,329 

100 DATA 3,8,659,1,8,739,3,8,659,1,8,587,1 [2969] 
,4,587,1,2,554,1,4,554 

110 DATA 1,4,587,1,4,587,1,4,493,1,4,493,1 [2997] 
,8,554,1,8,493,1,8,554 

120 DATA 1,8,587,1,2,659,1,8,554,1,8,493,1 [2906] 
,8,554,1,8,587.1,4,659 

130 DATA 1,4,554,1,4,587,1,4,587,1,4,493,1 [2579] 

,4,493,1,2,439,1,4,0 

140 ‘ [117] 

150 DIM tOnt(2,100) [707] 

160 FOR ton=1 TO 84:READ Z,n,t [1287] 

170 tont(l,ton)=INT(z/n*150):tont(2,ton)=I [3514] 
NT(t*2 Ä 24/2000000) 

180 NEXT ton [501] 

190 ' [117] 

200 IVOL,15:[OFF [845] 

210 FOR pl = l TO 84:|SOUND,1,tont(2,pl),1,t [3345] 
ont(l,pl),0,0,14,5 

220 IF pl< 2 6 THEN !SOUND,2,0,3,tont(1,pl ) [2141] 

230 IF pl< 55 THEN JSOUND,3,0,3,tont(1,pl ) [2166] 

240 IF pl > 2 6 THEN p12 = p1 -26: |SOUND,2,tont( [3147] 

2 , pl 2 ) , 2 , tont ( 1 , p 1-2), 0,0,14,5 

250 IF pl> 55 THEN p13 = pl-55: |SOUND,3,tont( [2746] 


2,pl3),4,tont(l,pl3),0,0,14,5 

260 NEXT pl [ 396] 

270 FOR 1=1 TO 168 [650] 

280 pl=pl+1:IF pl > 84 THEN pl = l [2253] 

290 pl2 = pl2+1:IF p12 > 84 THEN pl2 = l [ 1350] 

300 pl3 = pl3+1:IF pl3 > 84 THEN p!3=l [952] 


310 I SOUND ,1,tont(2,pl ),1 ,tont (1 ,pl ),0 , 0 , 1 [2463] 

4,5 

320 IF 1 < 1 65 THEN I SOUND, 2 , tont ( 2,p 1 2 ) ,2,t [3848] 
ont(l,pl2),0,0, 14, 5 

330 IF 1<165 THEN I SOUND,3,tont(2,p13) ,4,t [3817] 
ont(l,pl3),0,0,14,5 

340 NEXT 1 [368] 
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Im Zauberreich der Grafik 

Teil 4: Strukturveränderungen 


Unsere Reise durch das Zauberreich der Grafik neigt 
sich ihrem Ende zu. Bevor wir dabei einige weitere Mög¬ 
lichkeiten zu grafischen Strukturveränderungen ken¬ 
nenlernen und in das MULTISCREEN-Programm cin- 
bauen, werden wir uns noch mit einer neuen Art der 
Pinselgrafik vertraut machen. 



1. Pinselgrafik - waagrechte 

Spurenanfänge 

Bisher haben wir unsere Pinselspuren, 
abgesehen von den Kreisen, senkrecht 
oder schräg nach oben geführt (zum 
Beispiel bei den Häusersilhouetten, 
Heft 3/89, S.14, oder dem Bänder¬ 
kreuz, Heft 3/89, S.15). Im folgenden 
Beispiel führen wir sie immer nur ein 
Stück nach rechts und setzen eine gan¬ 
ze Reihe solcher Spurenanfänge über¬ 
einander; dabei lassen wir uns vom 
Programm ausgeben, bis zu welchem 
x2 (rechter Endpunkt) die Spur jeweils 
geführt wird: 

10 1 Spurenanfaenge nach rechts 
20 MODE 1: PRINT 

CHR$(23)CHR$(1):TAG 
30 SYMBOL 255,129,66,36,16, 

8,36,66,129 
40 f$=STRING$(8,255) 

50 p=4:x2=0 

60 F0R b=20 T0 300 STEP 
20:ORIGIN a,b 
70 F0R x=0 T0 x2 STEP 3 
80 M0VE x,y:PRINT f$; :M0VE 
x+p,y:PRINT f$;:NEXT x 
90 M0VE x+250, y: PRINT x2; 

100 x2=x2+3 
110 NEXTb 

Sie sehen, welche unterschiedlichen 
Ornamentleisten da entstehen. Probie¬ 


ren Sie auch andere Zeichen (c), andere 
Printabstände (p) und andere Erhöhun¬ 
gen von x2 (Zeile 100) aus! 
Experimentieren Sie bei diesen Spu¬ 
renanfängen auch mit geänderten Para¬ 
metern! Aus solchen Spurenanfängen 
können wir uns dann eine ganze Grafik 
zusammenstellen. Welche Vielfalt da¬ 
bei mit nur einem einzigen Zeichen 
(hier dem CHR$(0)) möglich ist, zeigt 
das folgende Beispiel (Listing 1), mit 
dem gleichzeitig erläutert wird, wie 
mehrere der in den bisherigen Folgen 
gezeigten Arten von Pinselgrafik zu ei¬ 
nem wirkungsvollen Bild zusammen¬ 
gefügt werdei) können: 


Die einzelnen Teile dieses Programms 
sind Ihnen aus den bisherigen Folgen 
bekannt. Neu ist die Kreisform in der 
letzten Zeichenschleife, durch die das 
verwendete Zeichen in einem ununter¬ 
brochenen Kreis herumgeführt wird. 
Es ist überraschend, wie sich dabei das 
englische Pfund in eine Doppelmondsi¬ 
chel verwandelt! Probieren Sie auch 
hier andere Zeichen aus, nehmen Sie 
zum Beispiel in den dreistelligen Para¬ 
metern von Zeile 40 jeweils die letzte 
Ziffer weg! Dann wird der fremde Pla¬ 
net sehr brüchig. 

2. Simulierter wechselnder 
MODE 



Bild 1: Besuch von 
fremden Planeten 


Nun eine Möglichkeit, die Struktur ei¬ 
ner Pinselgrafik entscheidend umzuge¬ 
stalten. Sie wissen, daß man während 
des Zeichnens und Schreibens den 
MODE nicht wechseln kann. Aber es 
gibt einen Trick, um eine solche Ver¬ 
änderung des MODE, also eine Ver¬ 
breiterung oder Verschmälerung des 
Zeichensatzes, vorzutäuschen, aller¬ 
dings mit merkwürdigen Effekten - 
und die sind für den Grafiker sehr reiz¬ 
voll. 

Geben Sie doch einmal, wenn Sie einen 
CPC 664 oder 6128 besitzen, im Di- 
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rektmodus ein: MODE 2:POKE 
47043,0. Interessant, nicht wahr? 
Oder: MODE l:POKE 47043,2. Beim 
CPC 464 lassen sich ähnliche Ergeb¬ 
nisse, wenn auch nicht mit ganz so hüb¬ 
scher Wirkung, durch POKE 45512,0 
erreichen. Da haben wir für unsere 
Pinselgrafiken also einen ganz neuarti¬ 
gen Zeichensatz zur Verfügung! 

3, Weitere Optionen für das 
MULTISCREEN-Programm 

Bei dem soeben gezeigten Beispiel 
wurde das, was sonst nur ein Byte breit 
war, stellenweise auf drei Byte ausein¬ 
andergezerrt. Weitere Byte-Operatio¬ 
nen können wir auch mit dem 
MULTISCREEN- Programm vorneh¬ 
men. Dazu müssen wir uns allerdings 
erst Platz schaffen, denn der verfügba¬ 
re BASIC-Speicher ist jetzt schon weit¬ 
gehend gefüllt. Wir können uns helfen, 
indem wir alle Datas aus dem Pro¬ 
gramm beseitigen. Das geht ohne viel 
Tipparbeit folgendermaßen: Stellen Sie 
sich zunächst einen Datalader zusam¬ 
men, der nur die folgenden Zeilen der 
Fassung enthält, die das Programm am 
Ende der vorigen Folge hatte: 60-100; 
260; 310; 470; 490-500. Fügen Sie 
dann noch an: 

SAVE-MULTISCR.BIN“,B,&A200,&FA. 

Lassen Sie diesen Datalader (er müßte 
jetzt so aussehen wie Listing 2) laufen; 
er speichert ein Binärprogramm ab, das 
auf der gleichen Diskette wie MUL¬ 
TISCREEN stehen muß. Löschen Sie 
dann im MULTISCREEN genau die 
Zeilen, die Sie für den Datalader her¬ 
ausgenommen haben. Jetzt haben wir 
Platz für eine Reihe weiterer Optionen 
im MULTISCREEN-Programm, die 
uns bis an die Grenzen des auf dem 
CPC Möglichen führen werden! Die 
dafür nötigen Erweiterungen finden 
Sie in Listing 3; fügen Sie dies in das 
“entspeckte“ MULTISCREEN-Pro¬ 
gramm ein. Damit haben wir eine Rei¬ 
he neuer Möglichkeiten für Struktur¬ 
veränderungen gewonnen. 

4. Byte-Operationen 

Diese Option arbeitet mit den Cursor¬ 
tasten. < Cursor links > verschiebt je¬ 
des Byte des Bildschirmspeichers so 
nach links, daß jeweils das links ste¬ 
hende Bit wegfällt. Studieren Sie die 
Wirkung an der “Explosion“ aus Heft 
7/89. 

Interessanter ist bei manchen Bildern 
das Rotieren der Bytes mit < Cursor 
rechts >. Da werden die Bytes nach 


rechts geschoben, aber das rechts her¬ 
ausfallende Bit links wieder angefügt. 
Vor allem bei senkrechten und kreis¬ 
förmig geschwungenen Formen gibt 
das interessante Effekte; probieren Sie 
es am “Morgenstern“ (Heft 7/89) aus. 
Und bei Zeichnungen im MODE 1 ent¬ 
faltet sich dabei ein wirres Farbenspiel, 
das Sie dann mit der PEN-Option (13) 
bearbeiten können; erst viermaliges 
< Cursor rechts > führt wieder zu kla¬ 
ren Verhältnissen. Und < Cursor un¬ 
ten > führt zu einer Bildstruktur, bei 
der die Bytes immer massiver werden, 
bis schließlich alle ursprünglich auf 
dem Bildschirm gesetzten Punkte zu ei¬ 
nem Strich ( = Byte 255, &X11111111) 
geworden sind. Auch hier zeigt Ihnen 
der “Morgenstern“ sehr schön das Er¬ 
gebnis. 

Mit den zwei nächsten Optionen kön¬ 
nen Sie ein bestimmtes Byte überall da, 
wo es im Bildschirmspeicher auftritt, 
beeinflussen. Laden Sie den “Morgen¬ 
stern“, wählen Sie Option (15) und ge¬ 
ben Sie dann 0,170 ein: Wie mit einem 
Zauberschlag erscheint die ganze Gra¬ 
fik in massiver, aber fein gepunkteter 
Struktur! Sie haben Byte 0 überall da, 
wo es auf dem Bildschirm erschien, 
isoliert und alle anderen Bytes durch 
170 (=&X 10101010) ersetzt. Sie kön¬ 
nen, wenn Sie eine bestimmte Punkt¬ 
folge in dem neu eingesetzten Byte ha¬ 
ben wollen, auch diese binären Zahlen 
(mit &X) eingeben. 

Mit der nächsten Option (16) können 
Sie ein bestimmtes Byte in ein beliebi¬ 
ges anderes umwandeln. Nehmen Sie 
die “Explosion“ aus Heft 7/89, wählen 
Sie (16) und geben Sie ein: 255,0. Im 
Nu verschwinden die doch vielleicht 
etwas störenden dicken Bodenstriche. 
Sie können sie aber auch austauschen 
gegen &X 10001000 oder etwas ande¬ 
res! Und probieren Sie einmal bei der 
“Explosion“ die Eingabe 0,255; oder 
machen Sie das gleiche beim “Morgen¬ 
stern“, und wenn Sie wollen, können 
Sie dann von der Mitte aus mit 0,0,1 
ausfüllen und das Ergebnis nach XOR 
kombinieren —unendliche Möglich¬ 
keiten! 

Eine weitere interessante Strukturver¬ 
änderung bietet Option(17). Sie tut das 
gleiche wie (16), nur gleich mit einer 
ganzen zusammenhängenden Reihe 
von Bytes! Laden Sie die “Turmfassa¬ 
de“ (Heft 7/89) in der ursprünglichen 
Farbverteilung, wählen Sie (17) und 
geben ein: 255,0,0. Jetzt müssen Sie 
etwas Zeit aufbringen: von 255 an ab¬ 
wärts wird der Reihe nach jedes Byte 
durchgeprüft und ggf. gelöscht. Die 
Struktur wird dabei in reizvoller Weise 


immer brüchiger. Bei einer Stelle, die 
Ihnen gut erscheint, können Sie unter¬ 
brechen und im Direktmodus PRINT i 
eingeben. Dann wissen Sie, bis zu wel¬ 
chem Byte Sie löschen müssen, um die¬ 
se Struktur zu erhalten. 

5. Rastern 

Mit dieser Option (die allerdings nur 
auf dem CPC 664 und 6128 möglich 
ist) können Sie ein Bild bzw. einen 
Bildteil, der Ihnen zu massiv ist, 
schwächer erscheinen lassen, was vor 
allem für den Druck wichtig ist. Wir 
nehmen dafür eine neue Grafik, der 
man es nicht ansieht, daß sie aus der Fi¬ 
gur der Bogenraute (s.Heft 7/89) ent¬ 
standen ist: 

10 'Schachfigur (=SCHACHFG.BAS) 

20 MODE 2: DEG 

30 a=0:b=-200:rx=200:ry=466:s=3: 

G0SUB 70 

40 F0R i=20 T0 290 STEP 20 :M0VE 0, i: 

FILL 1:NEXT i 
50 CALL &BB18: END 
60 ORIGIN 320+a,200+b 
70 F0R w=0 T0 180 STEP s 
80 x=rx#C0S(w)T3*SIN(wt2) 

90 y=ry#SIN(w)T4 
100 DRAWx.y 
110 NEXTw 
120 RETURN 

Probieren Sie an ihr die Wirkung der 
beiden verschiedenen Raster aus und 
konvertieren Sie zum Beispiel auch 
einmal den groben Raster nach OR! 
Und wenn Sie ein gerastertes und ein 
nicht gerastertes Bild kombinieren, er¬ 
halten Sie sehr schöne räumliche Wir¬ 
kungen. 

6. Exotische Verzerrungen 

Als Abschluß unserer ganzen Reise 
durchs Zauberland der Grafik bieten 
wir Ihnen noch einen besonderen 
Leckerbissen: Eine Routine, die in 
reichlich kühner, schon fast kriminel¬ 
ler Weise mit den Speicherinhalten um¬ 
geht, dafür aber auch frappierende Er¬ 
gebnisse liefert. Geben Sie acht, nicht 
über die angegebenen Parametergren¬ 
zen von 82-161 hinauszukommen; und 
auch innerhalb dieser Grenzen kann es 
Ihnen gelegentlich passieren, daß der 
CPC einfach “Ready“ sagt (s.u.). 

Genug der Vorrede - sehen wir, was 
sich ergibt! Laden Sie die “Schachfi¬ 
gur“, wählen Sie Option(16) und geben 
Sie 0,0 als zu tauschende Bytes ein; da¬ 
mit bekommen Sie, ohne Ihr Laufwerk 
zu strapazieren, die Schachfigur vom 
ersten auch in den zweiten Reserve¬ 
speicher. Wählen Sie nun Option(19) 
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mit Verzerrfaktor 161 - ein überra¬ 
schendes Ergebnis! Und sehen Sie 
nach, was Sie jetzt im zweiten Bild¬ 
schirmspeicher haben — da hat die 
Schachfigur ein paar aparte Boden¬ 
streifen bekommen. Bringen Sie nun 
diese wenig veränderte Figur mit der 
oben geschilderten Methode auch in 
den zweiten Speicherund verzerren Sie 
sie wieder, diesmal zum Beispiel, mit 
Faktor 139 - ein völlig anderes Bild. 
Zu Streifen zerschnitten, hängt die Fi¬ 
gur jetzt von der Decke. Ist Ihnen das 
Ergebnis zu mager und gefällt Ihnen 


Bild 2: 

Schachfiguren¬ 

gespenster 


nicht, hilft es nichts, hier zu unterbre¬ 
chen; tun Sie es, und Sie bekommen 
mit der kleinen ENTER-Taste trotz¬ 
dem nicht das ursprüngliche Bild auf 
den Bildschirm, sondern diesmal ein 
recht apartes, einen richtigen Schachfi¬ 
gurentanz (Bild 2). 

So können Sie mit anderen Parametern 
weiterexperimentieren, die Verzerrun¬ 
gen kombinieren und weiter verzerren. 
Vorsicht nur, wenn plötzlich unerwar¬ 
tet ein “Ready“ auf dem Bildschirm er¬ 
scheint! Damit erklärt Ihnen der CPC, 
daß ihm das Herumwühlen in seinen 


Eingeweiden zuviel geworden ist und 
Sie ihn “fertig“-gemacht haben. Sie 
dürfen jetzt keinesfalls die kleine ENT¬ 
ER-Taste drücken, sondern müssen, 
um Weiterarbeiten zu können, mit 
“RUN MULTISCRREEN“ das Pro¬ 
gramm von neuem von Diskette star¬ 
ten. Dann können Sie, ohne daß die 
Speicherinhalte verloren wären, nach 
Herzenslust weiter verzerren. Und Sie 
können auch einmal sehen, was sich er¬ 
gibt, wenn Sie in beiden Speichern ver¬ 
schiedene Bilder haben, zum Beispiel 
die “Schachfigur“ und die “Explo¬ 
sion“! 

Damit sind wir am Ende des für alle 
CPC-Freunde gemeinsamen Weges 
durch das Zauberreich der Grafik an¬ 
gelangt. Auf die Besitzer eines CPC 
6128 aber wartet im nächsten Heft 
noch ein ganz besonderer Leckerbis¬ 
sen: Ein MULTISCREEN-Programm 
in völlig neuer Gestalt, in der es dann 
auch die 64 kByte der zweiten Spei¬ 
cherbank nutzen, weitere Routinen 
aufnehmen und vier (!) Grafiken 
gleichzeitig verwalten kann - ein uner¬ 
schöpfliches Instrument zur kreativen 
Bearbeitung von Bildschirminhalten. 

(Friedrich Belzner/cd) 


io 


Listing 1: Besuch vom fremdem Planete [2877] 


20 ' 

30 MODE 1:PRINT CHR$(23)CHR$(0 ) :TAG 
40 SYMBOL 255,170,128,130,128,128,130,128, 
170 
50 ' 

60 'Parameter fuer den Sternhintergrund 
70 a=170:b=36:c=46:f=6:p=2:r=180:rl=0:r2=l 
80:GOSUB 380 
80 ‘ 

90 'Parameter fuer den Planeten 
100 a=400:b=300:c=255:rl=-180:r2=116:GOSUB 
380 
110 ' 

120 'Aussparungen im Planeten fuer die Sta 
dt 

130 PLOT 1000,1000,OrGOSUB 240 
140 ' 

150 'Die Stadt selbst 

160 TAGOFF:PRINT CHR$(23)CHR$(1):TAG:PLOT 
1000,1000,1:GOSUB 240 
170 * 

180 'Parameter fuer den Doppelmond 
190 OEG:TAGOFF:PRINT CHR$(23)CHR$(0):TAG:a 
=98:b=356:c=163:f=l:p=2:rx=40:ry=40 
200 wl=-90:w2=190:GOSUB 510:c=32:wl=190:w2 
=190:GOSUB 510 
210 CALL &BB18:END 
220 ' 

230 'Parameter fuer die Stadt 

240 a=0:b=14:c=0:f=2:p=4:s=3:x2=27:y2=180: 

GOSUB 450 

250 a=90:x2=30:y2=198:GOSUB 450:a=150:x2=3 
2:GOSUB 450 

260 a=250:x2=14:y2=242:GOSUB 450:a=18:y2=3 
28:GOSUB 450 

270 a=60:f=8:x2=33:y2=80:GOSUB 450 

280 a=168:f= 1 :x 2 = 0 :y2=380:GOSUB 450 

290 a=224:f=17:x2=9:y2=16:GOSUB 450 

300 a=444:f=5:s=5:x2=12:y2=140:GOSUB 450 

310 a=520:b=158:f=1: p=2:s = 2:x2 = 0; y2 = 200:GO 

SUB 450 

Listing MULTISCREEN 


[117] 

[2867] 
[2763] 

[117] 

[2448] 

[4746] 

[117] 

[1614] 
[ 2222 ] 

[117] 

[2411] 

[1430] 
[117] 

[1376] 
[4695] 

[117] 

[2053] 

[5603] 

[2395] 

[1048] 
[117] 
[2127] 
[4241] 

[3610] 

[3490] 

[ 1958 ] 
[1352] 
[ 1833 ] 
[ 1996] 
[2926] 


320 a=536:b=14:y2=344:GOSUB 450:a=552:GOSU [3729] 
B 450 

330 a=566:f=l:y2=100:GOSUB 450:a=580:GOSUB [4568] 
450:a=596:GOSUB 450 

340 a= 606:GOSUB 450:a=618:GOSUB 450:a = 628: [2288] 

GOSUB 450 

350 RETURN [555] 

360 ' [117] 

370 Zeichenschleife fuer Sterne und Plaane [4381] 
ten 

380 f$="":f$=STRING$(f,C):ORIGIN a,b [1582] 

390 FOR x= r1 TO r2:y = SQR(r“2-x“2):y = y*SIN( [3362] 

y) 

400 MOVE y,x:PRINT f$;:M0VE y+p,x:PRINT f$ [2773] 

410 MOVE -y,x:PRI NT f$;:MOVE -y + p,x:PRINT [3119] 
f$;:NEXT x 

420 RETURN [555] 

430 ' [117] 

440 Zeichenschleife fuer die Stadt [3063] 

450 f$='"': f$ = STRING$( f , c ) :ORIGIN a,b [ 1582 ] 

460 FOR y=0 TO y2 STEP 16:FOR x=0 TO x2 ST [3366] 
EP s 

470 MOVE x,y:PRINT f$;:M0VE x+p,y:PRINT f$ [3326] 
;:NEXT x:NEXT y 

480 RETURN [555] 

490 ' [117] 

500 Zeichenschleife fuer den Doppelmond [3704] 

510 ORIGIN a,b:f$=STRING$(f,c):FOR w=wl TO [2728] 
w2 

520 MOVE SIN(w)*rx,COS(w)*ry:PRINT f$; [1082] 

530 MOVE SIN(w)*rx+p,COS(w)*ry:PRINT f$;:N [2886] 
EXT w:RETURN 


5 ' Listing 2: Datalader fuer MULTISCREEN- [5106] 

Endfassung (=MSDATAS.BAS) 

60 FOR x=&A200 TO &A2F9:READ a$:POKE x.VAL [4807] 
("&"+a$):NEXT 

70 DATA 21,00,cO,11,00,22,01,00.40,ed,bO,c [2005] 
9,21,00,22,11 

Listing MULTISCREEN 
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Serie—i 


80 DATA 00,00,01,00,40,60,bO,09,21,00,62,1 [1974] 

1,00,CO,01,00 

90 DATA 40,ed,b0,c9,21,00,cO,11,00,62,la,b [2843] 
6,77,13,23,36 


100 

DATA 00, 

bc , 

20 , 

f 6, 

c9 , 

21 , 

o 

o 

22 , 

11, 

, 00 , 

62 . 

[3145] 

01 , 

00, 

,40,ed, 

bO, 

c9 










260 

DATA Oe, 

50, 

21 , 

00, 

cO , 

e5 , 

06 , 

c 7 , 

e5 , 

, cd , 

26 , 

[3444] 

bc , 

7 e , 

,dl,12, 

10, 

f 7 , 

Od , 

3e , 

00, 

b9 , 

28 , 

05 , 

el , 

23 , 


e5 , 

18, 

ea.el, 

c9 











310 

DATA dd, 

6e , 

00 , 

dd , 

66 , 

01 , 

dd , 

5e , 

02 , 

, dd , 

56 , 

[3533] 

03, 

dd , 

,7e,04, 

cd , 

52 , 

bd , 

c9 








470 

DATA 21, 

00 , 

cO , 

11, 

80 , 

f f . 

06 , 

64 , 

C 5 , 

, e 5 , 

d 5 , 

[5667] 

06, 

50, 

,7e,f5 , 

la, 

77 , 

f 1 , 

12 , 

23, 

13 , 

10, 

f 6 , 

, dl , 

eb, 


cd, 

29 , 

bc.eb, 

e 1, 

cd, 

26, 

bc , 

cl , 

10 , 

e4, 

C 9 




490 

DATA 21, 

cf, 

61 , 

11 . 

00, 

cO, 

01 , 

30 , 

CO , 

, cb, 

46 , 

[12658] 

28 , 

04 , 

, cb , f f , 

18 , 

02 , 

cb, 

bf , 

cb, 

4e , 

28, 

04 , 

, cb, 

f 7 , 


18 , 

02 , 

, cb,b7, 

cb, 

56 , 

28 , 

04 , 

cb, 

ef, 

18 , 

02 , 

, cb, 

af , 


cb, 

5e , 

,28,04, 

cb, 

e 7 , 

18 , 

02 , 

cb, 

a 7 , 

cb, 

66 , 

, 28 , 

04 , 


cb, 

df, 

,18,02, 

cb, 

9f , 

cb, 

6e , 

28 , 

04, 

cb, 

d 7 , 

, 18 , 

02 , 


cb, 

97 , 

,cb,76, 

28 . 

04 , 

cb, 

cf , 

18, 

02 , 

cb, 

8 f , 

, cb, 

7e , 


28 














500 

DATA 04, 

cb, 

c 7 , 

18, 

02 , 

cb, 

87 , 

12 , 

13 , 

,2b, 

03 , 

[2733] 

3e , 

00 , 

,be,20, 

a 7 , 

c9 











1000 SAVE"MULTISCR.BIN",B,&A200,&FA [2364] 


5 ' Listing 3: Abschliessende Erweiterunge 
n des MULTISCREEN-Programms 

6 1 (=MSERWEIT.BAS) 

60 IF PEEK(&A209)< > & ED THEN LOAD"MULTISCR. 
81N" ,&A2 00 

155 PRINT"(14) Bytes schieben/rotieren":PR 
INT"(15) Byte isolieren" 

156 PRINT"(16) Byte austausehen":PRI NT"(17 
) Bytefolge austauschen" 

157 PRINT"(18) Rastern":PRINT"(19) Verzerr 
en" 

600 MODE m:CALL s 

610 IF INKEY(1)=0 THEN POKE &A59F,&9:CALL 
&A598 

620 IF I NKEY ( 2 ) =0 THEN POKE & A 5 9 F , 8.2 9 : C A L L 
8.A598 

630 IF I NKEY ( 8 ) =0 THEN POKE &A59F , 8.21 : CALL 
8.A598 

640 IF INKEY(47)=0 THEN GOTO 250 
650 GOTO 610 

660 MODE m:CALL s:INPUT"Zu isolierendes By 
te, Byte fuer den Rest: ",byl,by2 
670 POKE 8.A5AC, byl : POKE 8.A5AA , by2 : POKE 8.A5 
AF , 8.2 8 : CAL L s:CALL &A5A6:POKE 8.A5AF , 8.20 : GO 
TO 250 

680 MODE 2:CALL s:INPUT"A1tes Byte, neues 
Byte: ",by1,by2 

690 CALL s : POKE &A5 AC , by 1 : POKE &A5AA,by2:C 
ALL 8.A5A6 : GOTO 250 

700 MODE m.CALL s:INPUT"An fang, Ende der B 
ytefolge, neues Byte: ",by1,by2,by3:IF byl 
> by 2 THEN st = -l ELSE st=l 

710 CALL s : POKE &A5AA,by3:FOR i=byl TO by2 
STEP St : POKE 8.A5AC, i : CALL 8.A5A6:IF I NKEY ( 
4 7) = 0 THEN 250 
720 NEXT:GOTO 250 

730 MODE m:CALL s:INPUT"Raster eng (1) - w 
eit (2): " , ra:CALL s:PRINT CHR$(23)CHR$(2 

) :ON ra GOTO 740,770 

740 FOR 1=0 TO 399 STEP 4:MASK 170:MOVE 0, 
i :DRAW 639 , i 

750 MASK 85:MOVE 0,i+2:DRAW 639,i+2 

760 NEXT 1:MASK 255:GOTO 250 

770 FOR i=0 TO 399 STEP 8:MASK 136:MOVE 0, 

1 :DRAW 639,i :MASK 0:M0VE 0,i+2:DRAW 639 , i + 

2 

780 MASK 34:MOVE 0,i+4:DRAW 639,1+4:MASK 0 
:MOVE 0, 1+ 6:DRAW 639,1 +6:NEXT i :MASK 255:G 
OTO 250 

800 MODE m:CALL 3:INPUT"Verzerrfaktor (82 
- 161 ): ",vf 

810 CALL s : POKE 8.A5BB , vf : CALL k : CAL L 8.A5B9 
:CALL v:GOTO 250 


[3924] 

[1243] 
[3170] 

[5752] 

[5342] 

[2615] 

[ 522 ] 
[2428] 

[2075] 

[ 1827] 

[806] 
[411] 
[3549] 

[4608] 

[3299 ] 
[4070] 
[5327] 

[4140] 

[ 957 ] 

[ 6028] 


[2203] 

[2363] 
[ 1185 ] 
[5227] 


[ 4576 ] 


[3598 ] 
[2639 ] 
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Das ideale Werkzeug für jeden dBASE-Anwender 

dBINT 

DIE Erweiterung für dBASE III und dBASE III Plus 

Mit dBINT können Sie sämtliche DOS-lnterrupt's ohne Assemblerkennt¬ 
nisse nutzen und dadurch Ihre dBASE-Programme effektiver gestalten. 
dBINT enthält über 100 dBASE-Prozeduren. Damit können Sie z.B. 

• Bildschirm scrollen 

• Bildschirm direkt lesen und beschreiben 

• Textdateien bearbeiten 

• Datenfernübertragung betreiben 

• Eine Maus steuern 

• Und - und - und - und - und - und - und 

Mit dBINT erhalten Sie auch ein Utility für die Window-Programmierung. 
Bis zu 10 Fenster können gleichzeitig geöffnet sein. Sie können Fenster 
scrollen, speichern, löschen und beschreiben. Kurzum, alles was zu einer 
professionellen Bildschirm-Verwaltung gehört. 

Ein unbedingtes MUSS 
für jeden dBASE-Programmierer 

dBINT ist auf 5 V4" und 3 Vi2" Disketten lieferbar 

NUR DM 198.-(sfr 180.-/ÖS 1500.-) 

Unuoibindlicht Puisampfchlung 

Inklusive leichtverständlichem deutschem Handbuch 

llefarung gagen Nachnahme. Vaimchnwigs-Chacl oder Vorauszahlung auf Konto SKA. CH 8610 Ustet 
(r.G AlMAT OATA Kto 604'776 71), zuzüglich Versandkostenantail OM 8 .- /sfr 7 -/ÖS 60 

ALMAT -DATA Brunnenstrasse 1 

CH-8610 Uster 

Tel. 01/94145 72 Fax 01/94047 84 

TBINT als Version für Turbo-Basic lieferbar 


PR8-SOFT 


DAS PROGRAMM FÜR DEN INTERESSIERTEN ANWENDER 

DISCOLOGY 

CPC DISC TOOLS 


Version J • 


Für alle CPC’s 
3"-Diskette 
nur 

DM 99.- 

ECHTE DESKTOP-GRAFIK AM SCHNEIDER/AM STR AD CPC 

M I C R 0 D E S I G N 

Für CPC 6128 (oder CPC 464/664 

mit DK-Tronics Speichererweiterung) DM 99.- 

Weifere Angebote und Spiele in unserem Katalog! 

Tel. Bestellung (24Stunden): 0931/464414, FAX: 0931/464413 
PR8-SOFT Klaus-M. Pracht * Postfach 500 * D-8702 Margetshöchheim 

Lieferung per Nachnahme (Versandkosten DM 5.- + NN-Gebühr) oder gegen Scheck 
(+Versandk. DM 5.-). Auslandslieferungen gegen Scheck (+ Versandkosten DM 10.-) 
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Das Spielkonzept 
stimmt, die Grafik 
ging daneben: 
3-D Pool 




3-D Pool 

Hersteller: Firebird 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: 34,95 DM (Kass) 

CPC 464 Kl CPC 664 K CPC 6128 K 

Das Flair der Pool-Halle 

Wer das Flair einer verräucherten Bil¬ 
lardhalle und das Knistern in der Luft 
während des entscheidenden Stoßes in¬ 
nerhalb eines Pool-Turniers miterleben 
will, der hat zwei Möglichkeiten: Er 
kann üben, üben, üben und sich in zwei 
bis drei Jahren zu den ersten Voraus¬ 
scheidungen melden, oder er sieht sich 
Paul Newman in “Die Farbe des Gel¬ 
des“ an. 

Da dieses entweder ziemlich zeitrau¬ 
bend oder “eben nur Kino“ ist, besteht 
als letzter Ausweg noch der Griff zu ei¬ 
ner Computersimulation. 

3-D Pool bietet beispielsweise den Be¬ 
sitzern der CPC-Reihe die Möglich¬ 
keit, sich mit fiktiven Gegnern zu mes¬ 
sen oder einfach die ersten Schritte des 
Pool-Billards computerhaft zu bege¬ 
hen, ohne den Filz des sündhaft teuren 
Billardtisches vom Herrn Nachbarn zu 
durchstoßen. 

Unsichtbarer Queue 

Zuerst hat man sich durch das Startme¬ 
nü zu tasten, in dem die verschiedenen 
Modi (Demo, Übung, Wettbewerb, 
Trickspiel), Anzahl der Spieler etc. 
eingestellt werden. Danach erscheint 
der Billardtisch auf dem Monitor. Die¬ 
ser kann in alle möglichen Richtungen 
gedreht werden, so daß die Lage der 
Kugeln aus jeder denkbaren Perspekti¬ 
ve begutachtet werden kann. 

Das ist für den eigentlichen Stoß sehr 
wichtig, da der Queue in dieser Simula¬ 
tion nicht abgebildet wird. Der Spieler 
muß in seinem Geiste eine Linie Auge- 
Spielball-Ziel bilden und den ganzen 
Tisch solange drehen, bis sie ihm opti¬ 
mal verwirklicht erscheint. 

Des weiteren kann er den Anstoßpunkt 
am Spielball und natürlich die Stärke 


des Stoßes bestimmen. Der Stoß wird 
ausgelöst, wenn alle Einstellungen ge¬ 
tätigt worden sind. 

Grobe Grafik 

Das an sich gut durchdachte Spielsy¬ 
stem leidet auf dem CPC doch arg, da 
die Grafik leider sehr grobkörnig ge¬ 
staltet ist. Man bekommt leicht 
Schwierigkeiten, wenn die Ideallinie 
angepeilt wird. Das ist zwar beim ech¬ 
ten Billard ebenso, doch sind dort die 
Kanten scharf und somit klar zu er¬ 
kennen. 

Es braucht seine Zeit, bis man genü¬ 
gend Erfahrung gesammelt hat, um die 
grafischen Mängel durch spielerische 
Fähigkeiten auszugleichen. Abrufbare 
Hilfslinien oder markierte Zielpunkte 
hätten hier Abhilfe schaffen können. 
Der Sound beschränkt sich auf die Ge¬ 
räusche, die Billardkugeln bei Kollisio¬ 
nen von sich geben. Andere würden 
dem Spiel wenig guttun und höchstens 
die Konzentration des Spielers stören. 
Ein interessantes Feature besitzt 3-D 
Pool mit dem Trickeditor. Hier können 
verschiedene Positionen — der Com¬ 
puter bietet 15 vorgefertigte Probleme 
an - gespielt oder geübt werden. Wem 
das zu wenig erscheint, der kann zu¬ 
sätzlich Stellungen aufbauen. Der 
Phantasie sind hier keine Grenzen ge¬ 
setzt. 

Die unmöglichsten Billardprobleme 
können hier bis zum Exzeß geprobt 
werden, ohne daß man am großen 
Tisch wieder und wieder die Bälle auf¬ 
bauen muß. 

Gespielt wird 3-D Pool mit den her¬ 
kömmlichen Regeln. Trifft man keine 
der eigenen Kugeln oder versenkt man 
den weißen “Spielball“, so erhält der 
Gegner einen Extrastoß. 


Fazit 

Simulationen, deren wichtigste Grund¬ 
lage eine gut erkennbare Grafik ist, be¬ 
dürfen stets einer entsprechenden 
Hardware. Daß der CPC in diesem 
Punkt den 16-Bit-Computem nicht das 
Wasser reichen kann, liegt auf der 
Hand. 

Spieidoo Bodttmjnos- Doku- Giotik Sound Pmv 

froundllctik«l manlalion tMlung 



Ein wenig mehr Mühe kann allerdings 
schon erwartet werden, denn die doch 
deutlichen Mängel, die das Programm 
in grafischer Hinsicht aufweist, stören 
den Gesamteindruck, den das Pro¬ 
gramm beim Spieler hinterläßt. Der 
Spielwert ist bei 3-D Pool sehr hoch zu 
bewerten. Features, die vom normalen 
Übungsspiel bis zum Griff in die Trick¬ 
kiste reichen, überzeugen den Käufer, 
und so sollte es sein. 

(jf) 

Times of Lore 

Hersteller: Origin System Inc. 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: 49,95 DM (Disk.) 

CPC 464 K CPC 664 K CPC 6128 K 

Die Geschichte von Albareth 

In einer Zeit, da im herrscherlosen Kö¬ 
nigreich Albareth noch nachbarschaft¬ 
liche Kleinkriege an der Tagesordnung 


30 PC 8’89 




































































Software-Review—i 



Die Reise in das 
Königreich Albareih 
bietet eine echte 
Langzeitunterhaltung 


waren, landeten erste Gruppen des El- 
den-Stammes an der Küste des Großen 
Meeres. Es dauerte seine Zeit, bis die 
Bewohner Albareths einsahen, daß 
permanente Angriffe gegen die mächti¬ 
gen Eiden wenig sinnvoll waren. So 
raufte man sich zusammen und akzep¬ 
tierte die ehemaligen Eindringlinge. 
Zusammen wurde ein neues König¬ 
reich Albareth errichtet. 

Das Amt des Hohen Königs übernahm 
ein geachteter Elden-Prinz mit Namen 
Valwyn. Er brachte aus seiner Heimat 
drei Artefakte mit magischen Eigen¬ 
schaften mit: Eine Wahrheitstafel, mit 
der der König eine für das Reich bedeu¬ 
tende Frage beantworten konnte, die 
Voraussagenden Steine, die Visionen 
von weit entfernten Orten brachten und 
das goldene Medaillon der Macht, wel¬ 
ches in der Lage war, Armeen zu füh¬ 
ren und deren Stärke zu beeinflussen. 
Nur Eiden reinsten Blutes waren in der 
Lage, die Nutzen aus diesen Artefakten 
zu ziehen. 

Das Reich wuchs, bis wilde Barbaren 
sich entschlossen, eine blutige Ausein¬ 
andersetzung mit dem Königreich Al¬ 
bareth zu beginnen. Ein zehnjähriger 
Kampf brach aus, und erst nachdem 
König Valwyn mit Hilfe der Macht des 
Medaillons seinen Gegner Heidric zu 
Verhandlungen zwang, endete der 
Krieg. 

Die Feinde begannen, sich zu akzeptie¬ 
ren, und am Jahrestag des Waffenstill¬ 
standes ernannte Valwyn Heidric zum 
Wärter von Ganestor. Durch die Stra¬ 
pazen gezeichnet, beschloß Valwyn, 
eine Zeit zu ruhen. Er übertrug die Ge¬ 
schäfte dem Elden-Lord Dariel und 
sagte, daß er in genau zwanzig Jahren 
zurückkehren werde. Doch die fehlen¬ 
de Führungsstärke Dariels führte dazu, 
daß das Land erneut dem Chaos zu ver¬ 
fallen drohte. Die Hoffnung auf die 


Wiederkehr Valwyns begann zu 
wachsen... 

In dieser Situation gelangen Sie in der 
Rolle eines verwegenen Abenteurers 
ins Königreich Albareth und werden in 
viele geheimnisumwobene Dinge ver¬ 
wickelt. Nach einer ruhigen Nacht in 
einer Taverne stoßen Sie auf die ersten 
Personen, die Ihnen Rat geben und Hil¬ 
fe erwarten... 

Ein Joystick-Abenteuer 

Times of Lore ist ein klassisches Aben¬ 
teuerspiel mit Arcade-Einlagen, bei 
dem die Aktionsmöglichkeiten durch 
Anklicken von Icons ausgewählt wer¬ 
den. Im wesentlichen bewegt der Spie¬ 
ler seine Figur per Joystick durch die 
Welt des Königreiches Albareth. 

Oft trifft man auf Personen und Kreatu¬ 
ren. Erstere sind häufig zu Auskünften 
bereit. Manche richten Bitten an Sie, 
andere werden erst redselig, wenn sie 
mit Geschenken bedacht werden. 

Die Kreaturen — ob Schurke oder Un¬ 
geheuer, Skelett oder Schleim — sind 
dem Helden meist nicht wohlgesonnen, 
so daß es zwangsläufig zu unsanften 
Auseinandersetzungen kommt. Wer¬ 
den die Kontrahenten besiegt, so ver¬ 
lieren Sie oft nützliche Dinge. Mal han¬ 
delt es sich dabei um Brote, mal um 
magische Tränke oder Zaubersprüche, 
deren Zweck erkundet werden sollte. 

Langwierige Unterhaltung 

Was beim Test nicht überprüft werden 
konnte, waren Packungsangaben wie 
die, daß es 13000 verschiedene Lokali¬ 
täten geben soll oder daß die Spieldauer 
bei 200-300 Stunden liege. Daß es al¬ 
lerdings falsch wäre, diesen Aussagen 
zu widersprechen, wurde sehr schnell 
klar. Das Spielterrain erstreckt sich 
über eine reichlich große Fläche, die 
eine Unzahl von Gebäuden und Häu- 


Software für CPC und Joyce 


Preiswerte Software für Amstrad-CPC und 
Joyce mit deutschen Handbuch - so machen 
diese Super-Programme richtig Spaß! 

WS-TUNER für Wordstar * 

Vergessen Sie alles, was Sie bisher über 
WordStar-Erweiterungen erfahren haben! 
Endlich können Sie Dateien per Cursor¬ 
tasten auswählen, die Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Befehle definieren, Textlöschungen rück¬ 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text¬ 
dateien ansehen, drucken ohne zwischen¬ 
zuspeichern, stets freie Diskettenkapazi¬ 
tät und Textlänge ermitteln und, und, und ... 

Nur DM 49,80 

(unverbindliche Preisempfehlung) 

Großes Buch der Public Domain-Software 

Alles was Sie über deutsche PD-Software 
wissen müssen, finden Sie in diesem Buch. 
Zusätzlich die deutschen Dokumentationen 
zu den Disks 1-6, 8 und 10-12. Ideale Fund¬ 
grube für Computerterfans! Mit Rabattcou¬ 
pons für unsere Software! Nur DM 34,80 


Neu: Diskette 18 - MacroPack/Z80 

Assemblerprogrammierung für Einsteiger 
und Profis - Z80-Makroassembler mit fink- 
fähigem Code, Linker, Debugger und Editor. 


1- JRT-Pascal mit 64K-Strings, Overlays * 

2- Z80-Assembler, Linker, Debugger 

4- Compiler Small-C: Fließkommazahlen * 

5- Forth-83: Multitasking, Assembler ... 

6- Utilities: Diskmonitor, Dateiretter ... 

10- BizBasic - CPC-Basic-Erweitcrung 

11- E-Basic - CBasic-kompatibler Compiler 

12- Für Turbo Pascal: INLINER, Grafik 
15- WordStar-Utilities: Fußnoten, Index * 
17- C-Interpreter - interaktiv C lernen * 

19- Telekommunikation mit MEX 

* auf dem CPC-464/664 nur mit Speicher¬ 
erweiterung (64K genügen). 

Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Preisempfehlung) 


Unser Kombi-Angebot: 

Eine beliebige der obigen Disketten 1-19 
und neun 3-Zoll-Disketten von Maxell für 
nur 79 Mark! Oder: WS-TUNER und neun 
3-Zöller von Maxell für nur DM 99,80! 


3-Zoll oder Vortex-Format. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: 
nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9,8500 Nürnberg 90 
Telefon 09 11/30 33 33 

Weitere Bezugsquellen: 

Firma Simon, 4600 Dortmund 1. Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 
Firma Becker, 6690 St. Wendel 8, Tel. 06856/504 
Computerstore, 8500 Nürnberg. Tel. 0911/289028 
Hochholzer, 8062 Markt Indersdorf, Tel. 08136/1625 
Weeske, 7150 Backnang, Tel. 07191/1528 
Fritz Obermeier, 4972 Löhne 1, Tel. 05732/3246 
Gisbert Denz, 4784 Rüthen 2, Telefon 02902/58040 
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sern enthält. Da besteht leicht die Ge¬ 
fahr, sich hoffnungslos zu verirren. 
Wer alle diesen Bauwerken einen Be¬ 
such abstatten will und die Gespräche 
mit den spielintegrierten Figuren nicht 
scheut, der hat eine lange Zeit der Un¬ 
terhaltung vor sich. Unterhaltung des¬ 
halb, weil es Times of Lore schafft, 
den Spieler in eine spannende Stim¬ 
mung zu versetzen, die ihn vor dem 
Bildschirm verharren läßt. 

Zu kritisieren ist die unendliche Lade¬ 
zeit der Kassetten Version und die stel¬ 
lenweise etwas schlecht zu erkennende 
Grafik. So kann beim Durchstreifen 
der Wälder schon mal ein sich nähern¬ 
der Feind übersehen werden, was zu 
nicht unerheblichen Energieverlusten 
führen kann. Da ist große Aufmerk¬ 
samkeit gefragt. 

Fazit 

Times of Lore bietet den Benutzern der 
CPC-Computer eine lange und span¬ 
nende Reise durch das Königreich Al- 
bareth. Das riesige Terrain, das es zu 
erkunden gilt, garantiert zum einen 
Spielspaß und zum anderen eine lange 
Spieldauer. An die kleinen grafischen 
Schwächen wird man sich gewöhnen; 
sie sind nicht in der Lage, den guten 
Gesamteindruck zu schmälern. 
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Eine Packung mit vielen Beilagen (Po¬ 
ster, Karte, Anleitung mit illustrierter 
Vorgeschichte) sorgt mit dafür, daß es 
dem Programm gelingt, eine wohlige 
Stimmung zu schaffen. Times of Lore 
ist ein Programm, das allen Langzeit¬ 
spielern empfohlen werden kann. 

GD 

H.A.T.E. 

Hersteller: Gremlin 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: 49,95 DM (Disk.) 

CPC 464 Kl CPC 664 K CPC 6128 K 

Rebellion in der Galaxis 

H.A.T.E. — das steht für “Hostile All 
Terrain Encounter“ und bedeutet so¬ 
viel wie: Egal wo Sie hinkommen, Sie 
treffen auf etwas, was Ihnen nicht 


H.A.T.E, das ist ge¬ 
bremste Action in ei¬ 
ner ergiebigen An¬ 
zahl von Leveln 

wohlgesonnen ist! Da wir uns momen¬ 
tan im Jahre 2320 befinden, einer Zeit, 
in der sich die gesamte Galaxis in Auf¬ 
ruhr befindet, soll uns diese Tatsache 
nicht verwundern. 

Ganz im Gegenteil: Die Aktivitäten der 
Bösen aus den Tiefen des Weltalls neh¬ 
men stetig zu, und erfahrene Kämpfer, 
die sich bereiterklären, den Schutz der 
Zivilbevölkerung zu wahren, werden 
immer rarer. 

So melden Sie sich freiwillig, um den 
Unholden den Garaus zu machen. 
Doch bevor Sie in die Schlacht ge¬ 
schickt werden, müssen Sie Ihre Fähig¬ 
keiten in Stripworld beweisen, dem 
großen Trainingszentrum für angehen¬ 
de galaktische Kampfpiloten. 

Das Programm in diesem Lernzentrum 
für junge Han Solos besteht im wesent¬ 
lichen darin, abwechselnd per Star 
Fighter oder GAV, einem gepanzerten 
Bodenfahrzeug, ein Gebiet von unan¬ 
genehmen feindlichen Aufrührern zu 
säubern und nebenbei sogenannte Plas¬ 
mazellen einzusammeln. 

“Schräges Scrolling“ 

In H.A.T.E. scrollt der Untergrund 
schräg von rechts oben nach links un¬ 
ten unter Ihrem Kampfgerät hinweg. 
Das Gelände, über das Sie hinwegsau¬ 
sen, ist reichlich bergig, so daß viele 
Ihrer Schüsse von Hängen abgewehrt 
werden, anstatt die Gegner dahinter zu 
treffen. Diese feindlichen Fahr- und 
Flugzeuge sind durch gezielte Schüsse 
in kleine Staubwölkchen zu verwan¬ 
deln, die Plasmazellen dagegen können 
eingesammelt werden. Zum einen be¬ 
stimmen sie die Anzahl der Kampfpan¬ 
zer oder Star Fighter, mit der sie in den 
nächsten Level gelangen, zum anderen 
gehen sie anstelle ihres Schiffes verlo¬ 
ren, wenn Sie einen Volltreffer kas¬ 
sieren. 


Fehlende Rasanz 

Großes Manko bei H.A.T.E. stellt die 
Geschwindigkeit dar, in der das Ge¬ 
schehen auf dem Bildschirm abläuft. 
Falsch wäre, das Programm als lang¬ 
sam zu bezeichnen; das Prädikat “ra¬ 
sant“ verdient es allerdings ebensowe¬ 
nig. Da fällt es zuweilen etwas schwer, 
in die richtige “Action-Stimmung“ zu 
kommen. 

Das eher gemäßigte Tempo bedingt al¬ 
lerdings auch, daß es nicht allzu 
schwerfällt, die ersten Level zu überle¬ 
ben. Leider führt das ebenfalls zu kei¬ 
nem gravierenden Motivationsschub, 
dazu fehlt dem Programm das gewisse 
Etwas. Einige der Abwechslung die¬ 
nende Features hätten hier sicherlich 
vieles retten können. 

Fazit 

Mit H.A.T.E. stellt sich ein Action- 
Programm vor, das in der Ausführung 
etwas zu träge ausgefallen ist. Die 
mangelnde Geschwindigkeit führt 
dazu, daß nach der normalen “Mal- 
gucken-was-das-ist-Neugierde“ schnell 
die ersten Schatten der Langeweile die 
Spielfreude zu überdecken beginnen. 
So schafft es H.A.T.E. nicht, neue 
Maßstäbe auf dem CPC zu setzen. 
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Trotz der Mittelmäßigkeit sollten ein¬ 
gefleischte High-Score-Jäger einen 
Blick auf dieses Programm riskieren; 
denn Level gibt es reichlich. 

CiO 
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Ein Abonnement 
ist praktisch und gewährt 
zusätzlich noch Preisvorteile. 


PC Amstrad International kostet im Abonnement: 


Im Inland bzw. West-Berlin: 6 Ausg. 

12 Ausg. 

Im europäischen Ausland: 6 Ausg. 

12 Ausg. 

Im außereuropäischen Ausland: 6 Ausg. 

12 Ausg. 


Widerrufsrecht: 

Wir garantieren jedem 
Abonnenten das 
Recht, seine Bestel¬ 
lung innerhalb einer 
Woche nach Abschluß 
schriftlich zu widerru¬ 
fen. Die rechtzeitige 
Absendung des Wider¬ 
rufschreibens genügt 
zur Fristwahrung. 


Bitte benutzen Sie 
die Bestellkarte. 


DM\M/erlad\ Postfach 250 
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Gamers Message 


Willkommen zu der monatlichen Gamers Message. Heute wollen wir ein 
wenig in den Tiefen des (fast) unergründlichen Arbeitsspeichers herum- 
patchen. Weiterhin wollen wir diesmal eine ausführliche Anleitung zum 
Poke-Finder (abgedruckt in Ausgabe 3/89) bringen, da es doch einige 
Probleme mit der Handhabung gab. Zuletzt geben wir uns einer Lösung zu 
Times of Lore hin, doch langer Rede, kurzer Sinn: Stürzen wir uns hinein 
in die Tip- und Trick-Ecke dieser Ausgabe... 


Zu Poke-Finder (Ausgabe 3/89) 

Beim Arbeiten mit dem Poke-Finder 
(erschienen in Ausgabe 3/89) traten öf¬ 
ters Probleme bei der Handhabung auf. 
Um dies endgültig zu beseitigen, hier 
nun eine genaue Bedienungsanleitung: 

V oraussetzungen: 

1. Das Programm muß in einer unge¬ 
schützten Version vorliegen. 

2. Anfangsadresse, Länge und End¬ 
adresse müssen bekannt sein. 

Arbeitsweise: 

Da es inzwischen eine verbesserte Ver¬ 
sion dieses Programms gibt, möchten 
wir sie an dieser Stelle vorstellen: 

1 A = Anfangsadresse 

2 B = Länge 

3 C = Endadresse 

4 D = Anzahl der Leben 

5 F$= Dateiname 

6 OPENOUT“X“ 

7 MEMORY A-l 

8 LOAD ““ + F$,A 

9 FOR N = A TO C 

10 IF PEEK (A)=&3E AND PEEK 
(A + 1)=D THEN PRINT 
HEX$(A) 

11 NEXTN 

Nach Eingabe der Daten (siehe Zeile 1 
bis 5) werden Ihnen einige Adressen 
ausgegeben, die möglicherweise für 
die Anzahl der Leben, Energievorrat 
oder ähnliches verantwortlich sind. 
Diese Adressen sollten Sie sich notie¬ 
ren oder ausdrucken lassen. 

Das Poken 

Ist ein BASIC-Ladeprogramm vorhan¬ 
den, fügen Sie vor dem letzten CALL- 
Befehl die Zeile POKE adresse, anzle- 
ben ein (adresse ist einer der vorher 
ausgegebenen Werte, anzleben bedeu¬ 
tet, wie viele Leben (im Bereich von 0 
bis 255) Sie besitzen möchten). 

Starten Sie nun das Programm, und 
schauen Sie, ob sich an der Anzahl der 
Leben etwas verändert. Ist dies nicht 
der Fall, sollten Sie es mit dem näch¬ 


sten Wert, der Ihnen ausgegeben wur¬ 
de, versuchen. 

Bard’s Tale 

Von Martin Schiller aus Heilbronn 
stammt folgender Patch für das Spiel 
Bard’s Tale I, mit dem man die Cha¬ 
raktere der einzelnen Partymitglieder 
“durchschlagskräftiger“ machen kann: 
Dazu benötigt man lediglich einen Dis¬ 
kettenmonitor, der in der Lage ist, Da¬ 
ten zu codieren und decodieren. Wir 
beziehen uns auf das Vorgehen mit 
DISCOLOG Y. 

1. DISCOLOGY laden 

2. Den EDITOR anwählen 

3. Im Untermenü OPTIONS “Manual 
Continue“ einstellen 

4. Im Untermenü MODES nimmt 
man den “File Editor - Select 
Sector“ 

5. Nun lädt man eine Charakterdatei, 
die ja vom Spiel selbst per “save 


party“ erstellt wurde (sie belegt 
nur einen Block mit Daten) 

6. Im Untermenü FUNCTIONS En- 
code -(S)ystem wählen 

7. Mit CURRENT kann man nun den 
Cursor frei bewegen und die Bytes 
wie gewünscht verändern (auf bei¬ 
den “Seiten“ des Sektors) 

8. Sind die Daten in diesem Sektor 
nun modifiziert, geht es mit Punkt 
6 weiter 

9; Jetzt speichert man den Sektor 

10. Mit NEXT kann auch der zweite 
Sektor, der durch die Charakterda¬ 
tei belegt wird, verändert werden 

11. Die Punkte 6 bis 9 werden wieder 
durchgegangen 

12. DISCOLOGY verlassen und 
BARD’S TALE starten 

Bei Punkt 7 geht der Spieler wie folgt 
vor: 

— Der Cursor wird im Feld mit den 
HEX-Bytes auf das HEX-Byte bewegt, 
das den ersten Buchstaben eines Cha¬ 
rakternamens darstellt (dazu sucht man 
im ASCII-Feld einen Namen heraus 
(dieser ist ganz lesbar) und bewegt dann 
den Cursor auf das oben genannte HEX- 
Byte, das sich in der gleichen Zeile im 
Bereich des HEX-Feldes befindet). 

— Man bekommt ab dieser Stelle ein 
Bild zu sehen, das wie folgt aussehen 
kann: 


Charaktername (max. 15Buchstaben) 


4D 45 52 4C 

49 4E 20 20 

20 

20 

20 

20 

20 

20 

20 

FF 

Charakter-Werte 

Erfahren gsp unkte 








[94 92 94 8E 

loo 00 00 00 

00 

05 

08 

05 

07 

09 

01 

04 1 

Level max. Level aktuell Goldstücke 

00 23 J 00 23 

|oo 00 00 00 

00 

00 

00 

00 

00 

00 

00 

00 | 

Hitpts. Condpts, 

Spellpts. 

max. aktuell Klasse Rasse 






02 0E|02 0E 

01 C3 101 C3| 

01 

06 

00 

00 

09 

BF 

00 

12 

Spruchlevel (in jeder Magieklasse) 









07107 I 07 i07 

00 00 00 00 

00 

01 

00 

00 

00 

00 

00 

00 

Item-Liste (max. 8: 00=m i tgetrcgen.01 = cprüstet, Zahl[HEX] 

•Item) 

01 28 J 01 3C 

01 7C | 01 41 | 

01 

44 

00 

54 

,01 

5C 

,00 

7 A 


94 92 94 8E 04 . (Name des nächsten Charakters) 
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»Einzelheft-/Databox-Bestellung« 

Ich bestelle folgende Einzelhefte bzw. Databoxen 
von »PC Amstrad«: 
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7 

(D 

■jt 

ü) 

(D 

< 

0 

CD 


Einzelheft 

CPC 

CPC 

Joyce 

PC 1512 

Ausqabe 

Kassette 

3“-Diskette 

3“-Diskette 

51/4“-Diskette 

6,- 

DM/Stck 

14,- DM/Stck. 

24,- DM/Stck. 

24,- DM/Stck. 

24,- DM/Stck. 

□ 

1/88 

□ 

□ 

□ 

D 

□ 

2/88 

□ 

□ 

□ 

□ 

□ 

3/88 

□ 

□ 

□ 

□ 

□ 

4/88 

□ 

□ 

□ 

□ 

□ 

5/88 

□ 

□ 

□ 

□ 

□ 

6/88 

□ 

□ 

□ 

□ 


7/88 

□ 

□ 

□ 

□ 

□ 

8/88 

□ 

□ 

□ 

□ 

□ 9/88 

□ 

□ 

□ 

□ 

□ 

10/88 

□ 

□ 

□ 

□ 

□ 

11/88 

□ 

□ 

□ 

□ 

— 

12/88 

□ 

□ 

□ 

□ 

□ 

1/89 

□ 

□ 

□ 

□ 

rn 

2/89 

□ 

□ 

□ 

□ 

□ 

3/89 

□ 

□ 

□ 

□ 

□ 

4/89 

□ 

□ 

□ 

□ 

□ 

5/89 

□ 

□ 

□ 

□ 

□ 6/89 

□ 

□ 

□ 

□ 

ri 

7/89 

□ 

p”| 

□ 

P“ | 

— 

8/89 

□ 

□ 

□ 

□ 


CPC-Sonderhefte (bitte ankreuzen): 

312 □ Sonderheft 6/88 ... 14,-DM 

313 □ Sonderheft 7/88 .—. _14,-DM 

Sammelordner PC 

□ Best.-Nr. 531.. ..2 Stck. 15,80 DM 


+ Porto/Verpackung 

(Inland 4, - DM, Ausland 6, - DM) 


Gesamtbetrag: 
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- Beim “Special“ lassen sich der 
Name, die Hit-/Conditionpoints und 
die Klasse verändern. 

Beim Verändern ist darauf zu achten, 
daß bei dem Wert der Erfahrungspunk¬ 
te und der Goldstücke ein Byte gleich 
einer Ziffer ist, es sind also pro Byte 
nur Werte zwischen 00 und 09 sinn¬ 
voll. 

Im obigen Beispiel heißt das Partymit¬ 
glied Merlin. Durch die (HEX-)Zah- 
lenkombination 94 92 94 8E hat Merlin 
in jeder Charaktereigenschaft den Wert 
18 (Stärke, Glück etc.). Er besitzt 
5.857.914 Erfahrungspunkte und kein 
Gold, ist ein Level-35-Charakter mit 
526 Hit- und Conditionpoints und 451 
Spruchpunkten. Des weiteren ist er ein 
Gnom (Rasse) und zugleich ein Zaube¬ 
rer (Klasse). Merlin beherrscht alle 
Zaubersprüche, da er in jeder Magie¬ 
klasse (Beschwörer, Zauberer, Magier 
und Hexenmeister) das Level 7 erreicht 
hat. Als leckere Items hat er z.B. das 
Silberdreieck und -quadrat bei sich, er- 
steres ist gerüstet, letzteres “nur“ mit¬ 
getragen. 

Einige nette Items lassen sich so durch 
Veränderung der HEX-Werte “herbei¬ 
zaubern“, obwohl man in dem 
Dungeon und dessen Level, wo dieses 
normalerweise gefunden werden soll¬ 
te, noch gar nicht war. Hier eine kleine 
Liste der Items, die wirklich nützlich 
sind: 

Geisterschlinge (7F) 

Silberdreieck (7C) 

Silberquadrat (7A) 

Silberkreis (7B) 

Hauptschlüssel (78) 

Todesdolch (74) 

Steindegen (72) 

Kristallschwert (71) 

Drachenschild (59) 

Flammcnhorn (60) 

Frosthorn (54) 

Geisterhelm (6B) 

Bei den Klassen bzw. Rassen gilt fol¬ 
gende Zugehörigkeit: 


Rasse 

HEX 

Klasse 

Mensch 

00 

Krieger 

Elf 

01 

Zauberer 

Zwerg 

02 

Hexenmeister 

Hobbit 

03 

Beschwörer 

Halbelf 

04 

Magier 

Halborc 

05 

Dieb 

Gnom 

06 

Barde 


07 

Paladin 


08 

Jäger 


09 

Mönch 


0A 

?? (bleib. Special) 


OB 

— (Illusion) 


Ein Krieger kann auch Zaubersprüche 
anwenden, wenn er Spruchlevels be¬ 
sitzt. 


Für gefrustete Spieler, deren Charakte¬ 
re nur Eintagsfliegen sind, oder für die¬ 
jenigen, die nicht warten wollen, bis 
sie BARD’S TALE-süchtig sind, ist 
diese Schummelmethode bestimmt ge¬ 
nau richtig. Wir möchten jedoch darauf 
hinweisen, daß, wenn man die Charak¬ 
tere zu stark macht, der eigentliche 
Spielspaß doch sehr stark nachläßt, da 
man ja alle Gegner geradzu “wegput¬ 
zen“ kann. Der größte Reiz des Spieles 
liegt eben darin, seine Party Schritt für 
Schritt stärker werden zu lassen (durch 
das Ansammeln von Erfahrungspunk¬ 
ten und guten Items). 

Druid 

Jörg Nenstiel aus Vlotho sandte uns ein 
paar Pokes zu dem Spiel Druid. 

Mit POKE &2F5E,255 und POKE 
&2F5A,1 hat man den Vorteil, daß 
man beim Öffnen einer Schatztruhe 
und bei der Auswahl eines Zaubers die 
Anzahl der Zaubersprüche auf 255 ge¬ 
setzt wird. Auf der Anzeige steht zwar 
im Höchstfall 99, sie wird sich jedoch 
so lange nicht ändern, bis die Zahl der 
Sprüche unter 99 gesunken ist. 

10 ’ 

20 ’ BASIC-Loader für DRUID 
30 ’ 

40 MEMORY & 1387: 

LOAD"druid. prg“ ,& 1388 
50 POKE &2F5A,l:POKE &2F5E.255 
60 CALL &1E3E 

Times of Lore 

Als erstes sollte man sich genügend 
Proviant besorgen. Der Prior im Wirts¬ 
haus gibt uns nun den Auftrag, eine 
Urne zu finden. Nachdem wir uns den 
Dolch besorgt haben, begeben wir uns 
in das Camp der Orcs, das nördlich 
vom Waldsee liegt. Dort müssen wir 
einen bestimmten Orc töten, damit wir 
die Urne in unseren Besitz nehmen 
können. Ist dies geschehen, gehen wir 
zurück nach Eralan und geben dem 
Prior die von ihm verlangte Urne. Da¬ 
für erhalten wir von ihm etwas Geld 
und dürfen das Schloß betreten. 

Dariel erteilt uns den Auftrag, ihm eine 
bestimmte Tafel (tablet) von Ganestor 
zu bringen. Begeben wir uns zuerst 
nach Hampton, wo wir uns die grüne 
Schriftrolle (green scroll) besorgen. 
Nun können wir nach Ganestor. In der 
Wirtschaft gehen wir in den obersten 
rechten Raum, worauf sich ein Ge¬ 
heimgang öffnet, der in das Schloß 
führt. Gehen Sie nach Eralan und über¬ 
reichen Sie dem König die Tafel. Da¬ 
nach geht man zu dem Erzmagier 


(archmage), der den Auftrag erteilt, ei¬ 
nen Meuchelmörder in Lankwell zu 
finden. 

In der Zwischenzeit sollte man sich die 
Stiefel (boots) und die Axt besorgt ha¬ 
ben, damit man nicht vorzeitig aus dem 
Spielleben ausscheidet. 

Der Meuchelmörder ist der “Black 
Asp“, der bei der alten Steinbrücke un¬ 
ter Lankwell wohnt. Fragen Sie ihn 
nach “High King“, um seine Lebens¬ 
geschichte zu erfahren und die Schrift¬ 
rolle zu bekommen, die Sie dem Wär¬ 
ter in Ganestor geben müssen. Er sagt, 
daß Dariel den König Valwyn töten 
ließ. 

Die nachts herumschleichende Wache 
sollte man auf jeden Fall ausschalten, 
denn sie spioniert für König Dariel. 
Nun können Sie die Notiz (note) aufhe- 
ben und dem Wärter (ward) geben. Auf 
seinen Hinweis begibt man sich jetzt 
nach Hampton in das große Haus, wo 
man den unteren Wachposten töten 
muß. Dieser verliert daraufhin den 
grünen Schlüssel, mit dem man das 
obere Gefängnis öffnen kann, in dem 
der Prinz gefangen gehalten wird. Die¬ 
ser erzählt uns, daß finstere Mächte mit 
einem Sturm das Königreich zerstören 
wollen. 

Begeben wir uns also zurück zu dem 
Erzmagier, der uns befiehlt, den Zau¬ 
berer Lyche zu töten, der sich in den 
unteren Gängen der Ruinen befindet. 
Sollte man zu ihm kommen, muß man 
ihn mit dem heiligen Wasser (holy wa¬ 
ter) besprengen, das man in Rhyder 
vom Priar Kane kaufen kann. Der tote 
Lyche läßt dann den roten Heiltrank 
(red potion) zurück. Zurück zum Erz¬ 
magier, der uns unter Lobhudeleien 
den Schlüssel für den Krater übergibt. 
Im Krater befindet sich der Schlüssel 
für den Tempel, wo sich eine Person 
aufhält, die den weißen Schlüssel be¬ 
sitzt. 

Im Tempel angekommen, geht man 
nach unten in den linken Raum und be¬ 
wegt den dortigen Hebel. Es öffnet sich 
eine Geheimtür, durch die man in das 
Gefängnis gelangen kann. Dieses kann 
mit dem weißen Schlüssel geöffnet 
werden. Der Gefangene erzählt uns, 
daß man den “dark Clerik“ nur mit der 
Kugel (sphere) töten kann, die im obe¬ 
ren Stockwerk auf seinem Bett liegt. 
Nun gilt es nur noch, den “dark Cle¬ 
rik“ zur Strecke zu bringen und das 
Medaillon an sich zu nehmen, um das 
Spiel zu beenden. Viel Spaß beim 
Nachspielen. 

(br) 
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i— Programm 


Nur einer soll 
überleben 

Das Gitter-Spiel 


Bei dem Programm handelt es sich um die Übersetzung 
eines Brettspieles auf den Computer. Das Spiel ist ein 
sogenanntes Einsiedlerspiel, das heißt, es gibt keine 
wirklichen Gegner, es kommt vielmehr auf strategisches 
Denken an. 



, 4 , Feuw 


Das Spielfeld ist eine Art Kreuz, wobei 
jeder der vier Kreuzarme in neun Fel¬ 
der eingeteilt ist. Der Schnittpunkt der 
Arme besteht ebenfalls aus neun Fel¬ 
dern. Im ganzen sind es also 45 Felder. 
Der Aufbau erinnert an ein Gitter, da¬ 
her der Name. Auf jedem Feld - bis 
auf das mittlere - befindet sich ein 
Spielstein. 

Spielregel: 

Man muß mit einem Spielstein über ei¬ 
nen zweiten auf ein leeres Feld sprin¬ 
gen. Es spielt dabei keine Rolle, ob 
man horizontal oder vertikal springt. 
Der übersprungene Stein wird aus dem 
Gitter entfernt. 

Ziel: 

Ziel ist es, strategisch so zu springen, 
daß man am Schluß möglichst wenig 
Steine stehenläßt. Im Idealfall darf nur 
ein Stein übrigbleiben. 

Spielende: 

Das Spiel ist beendet, wenn es nicht 
mehr möglich ist, mit einem Stein über 


Ein dreidimensionales Spielfeld erweitert den Spielspaß bei Gitter um ein 
Vielfaches 


einen anderen Stein auf ein leeres Feld 
zu springen. Dies kann dadurch ge¬ 
schehen, daß a) nur noch ein Stein 
übrig ist oder b) man die Steine so ver¬ 
teilt hat, daß ein Sprung unmöglich ist. 

Man könnte glauben, daß das Spiel 
sehr einfach ist. Wenn man es aber aus¬ 
probiert, wird man sich seines Irrtums 
bewußt, und schon bald wird man von 
dem Gedanken gepackt, noch weniger 
Steine auf dem GITTER zurückzu¬ 
lassen. 

Nachdem man das Programm fehler¬ 
frei abgetippt hat, sollte man es abspei¬ 
chern. Nach dem Start mit RUN sieht 
man, wie sich das Gitter aufbaut und 
ein Pfeil in der Mitte erscheint. Der 
Pfeil kann mit einem Joystick bewegt 
werden. Wurde der gewünschte Stein 
angefahren, wird die Feuertaste ge¬ 
drückt. Falls man mit diesem Stein 
nicht springen darf, meldet sich der 
Computer mit einem Krächzton, und 
der Pfeil kann wieder bewegt werden. 
Sollte der Stein jedoch zulässig sein, 
setzt der Computer einen zweiten Pfeil 
auf eines der möglichen freien Felder. 


Falls mehrere Felder in Frage kom¬ 
men, können diese durch Drücken des 
Joysticks in Richtung des Feldes ange¬ 
sprochen werden. Ein Feld wird mit 
FEUER bestätigt. Das Menü wird mit 
der Taste M aufgerufen und beinhaltet 
fünf Punkte. 

1. Zurück zum Spiel: 

Man gelangt in den Spielmodus zu¬ 
rück. 

2. Schritt zurück: 

Man kann einen Sprung nach dem an¬ 
deren bis zur Ausgangsposition zu¬ 
rücknehmen. 

3. Ende erreicht: 

Kann man keinen Sprung mehr ausfüh¬ 
ren, kommt man durch diesen Punkt in 
die Bewertung des Spiels. 

4. Neustart: 

Das Spiel wird neu gestartet. 

5. Spiel abbrechen: 

Das Programm GITTER wird ver¬ 
lassen. 

Die einzelnen Punkte werden mit den 
Joystick ausgewählt. 

(Volker Grossmann/cd) 


für 464-664-6128 

I — - 

1 REM ************************************ 
************************************* 

2 REM ******************** Da 5 G * T T E 

R ******************************** 

3 REM ******************* von Volker Gross 

mann ******************************* 

4 REM ******************** Copyright 1989 

DMV ******************************** 

5 REM ************************************ 
************************************* 

10 MODE 1 

20 INK 0,0:INK 1,19:INK 2,13:INK 3,4 
30 DIM xX(9,9),yX(9,9 ).ivon(43), j von(43),i 
bls(43),jbis(43) 

40 name$="Volker":1score=10 

Listing Gitter 


sa 


[3197] 

[2669] 

[3471] 

[2849] 

[3197] 

[506] 

[1525] 
[2878] 

[2238] 


50 GOSUB 120:REM Daten lesen 
60 ste in=44 

70 GOSUB 270:REM Aufbau des Gitters 
80 GOSUB 630:REM Steine setzen 
90 GOSUB 730:REM Textaufbauen 
100 GOTO 850:REM Hauptprogramm 
110 END 

120 REM ******************* Daten lesen 
130 FOR i=1 TO 5 

140 IF i< 4 THEN z = 4:zl = 6 ELSE Z = 1: Z 1 = 9 
150 FOR j=z TO zl 
160 READ a.b 

170 xX(i,j)=-a:xX(10-1,j)=a:yX(i.j)=b:y% 
(10-1,j)=b 
180 NEXT j , i 

190 DATA 240,140,230,172,220,204,178,140,1 
70,172,164,204,120,140,113,172,108,204 
200 DATA 68,26,64,66,62,104,60,140,56,172, 
54,204,52,234,50,260,48,286 

210 DATA 0,26,0,66,0,104,0,140,0,172,0,204 
,0,234,0,260,0,286 
Listing Gitter 


[ 1202 ] 

[462] 

[1758] 

[ 1696] 
[1363] 

[1413] 
[ 110 ] 
[2452] 
[449] 

[ 1867 ] 
[1249] 
[544] 
[2038] 

[396] 

[3449] 

[3486] 

[2794] 
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Programm—i 


220 FOR Z = 1 TO 5 [1042] 

230 READ text$(Z) [776] 

240 NEXT z [354] 

250 DATA "Zurueck zum Spiel ?","Schr1tt zu [8781] 
rueck ?","Ende erreicht ?","Neustart ?","S 




pi el 

abbrechen ?" 



260 

RETURN 


[555] 

270 

rem ****************** Aufbau des 

Gl tt 

[2473] 

ers 




280 

PRINT CHR$(23);CHR$(0) j 


[2098] 

290 

PAPER 0 


[816] 

300 

CLS 


[91] 

310 

ORIGIN 320,0 


[227] 

320 

xl=-75:xrl=75/51 


[1171] 

330 

FOR x=-102 TO 102 STEP 2 


[1782] 

340 

MOVE x,10:DRAW xl.298,3 


[1907] 

350 

xl=xl+xrl 


[494] 

360 

NEXT x 


[356] 

370 

x = -2 74 


[671] 

380 

FOR y=124 TO 220 STEP 2 


[721] 

390 

MOVE x,y:DRAW -x.y 


[ 624] 

400 

x=x+0.6 


[1158] 

410 

NEXT y 


[ 359] 

420 

y=10:yr=40 


[ 5 77 ] 

430 

f=l 


[ 395] 

440 

FOR q=1 TO 10 


[837] 

450 

xl=(-306+q*8)*f/3 


[1319] 

460 

IF q>5 THEN xl=x1+4 


[1165] 

470 

IF q=1 OR q=10 THEN xl=xl-4 


[894] 

480 

MOVE x1,y:DRAW -xl,y,2 


[1200] 

490 

y=y+yr 


[761] 

500 

yr=yr-2 


[1029] 

510 

IF q > 2 AND q < 7 THEN f = 3 ELSE f = l 


[2953] 

520 

NEXT q 


[367] 

530 

x=-306:xl=-225 


[1807] 

540 

FOR q=1 TO 10 


[837] 

550 

xr-x-xl 


[1127] 

560 

IF q > 3 AND q<8 THEN 590 


[1391] 

570 

MOVE x-xr*0.4,124:DRAW xl+xr*0.27 

, 220 

[ 1925] 

580 

GOTO 600 


[413] 

590 

MOVE x,10:DRAW xl,298 


[1759] 

600 

x=x+68:xl=xl+50 


[1115] 

610 

NEXT q 


[ 367] 

620 

RETURN 


[ 555] 

630 

rem ****************** Setzen der 

Stel 

[2151] 

ne 




640 

PRINT CHR$(23);CHR$(1); 


[1854] 

650 

f = 2 


[ 398] 

660 

FOR i=1 TO 9 


[461] 

670 

IF i< 4 OR 1>6 THEN z = 4:zl = 6 ELSE 

z = l : 

[1731] 

z 1 = 9 



680 

FOR j=Z TO Z1 


[1249] 

690 

GOSUB 3170 


[ 959 ] 

700 

NEXT j,1 


[396] 

710 

1=5:j=5:GOSUB 3170 


[1028] 

720 

RETURN 


[555 ] 

730 

REM ****************** Textaufbauen 

[1667] 

740 

PRINT CHR$(22) ;CHR$(1) ; 


[ 1398] 

750 

PEN 1:LOCATE 18,1:PRINT"G T E " 


[ 1956] 

760 

LOCATE 17,2:PRINT"= = = =" 


[1015] 

770 

PEN 2:LOCATE 18,1:PRINT" I T R" 


[1577] 

780 

LOCATE 17,2:PRINT" = = = =" 


[1117] 

790 

PRINT CHR$(22);CHR$(0); 


[ 1402 ] 

800 

LOCATE 31,20:PRINT"Noch" 


[1462] 

810 

LOCATE 30,24:PRINT"Steine !" 


[1207] 

820 

LOCATE 2,21:PRI NT"M = Menue" 


[2350] 

830 

PEN 1:LOCATE 31,22:PRINT stein; 


[1116] 

840 

RETURN 


[ 555] 

850 

REM ****************** Hauptprogramm 

[ 1906 ] 

860 

i =5:j = 5 :GOSUB 3230 


[976] 

870 

IF INKEY(38)=0 THEN 2220 


[ 780] 

880 

IF INKEY(72)=0 THEN GOSUB 950 


[ 1234] 

890 

IF INKEY(73)=0 THEN GOSUB 1030 


[1646] 

900 

IF INKEY(74)=0 THEN GOSUB 1100 


[1408] 

910 

IF INKEY(75)=0 THEN GOSUB 1170 


[1001] 

920 

IF INKEY(76)=0 THEN GOSUB 1240 


[ 725 ] 

930 

FOR Z =1 TO 150: NEXT z 


[1489] 

940 

GOTO 870 


[534] 

950 

REM <<< hoch >>> 


[718] 

960 

IF j = 9 THEN 1010 


[551] 

970 

IF j=6 AND (i< 4 OR i > 6) THEN 1010 


[2016 ] 

980 

GOSUB 3230 


[ 955 ] 

990 

j=J + l 


[ 544] 

1000 GOSUB 3230 


[955] 

1010 RETURN 


[ 555 ] 

1020 NEXT 


[350] 

1030 REM <<< runter )>> 


[918] 


Listlng Gitter 


1040 

IF j = l THEN 1090 


[1055] 

1050 

IF j=4 AND (1< 4 OR i>6) THEN 1090 


[1634] 

1060 

GOSUB 3230 


[955 ] 

1070 

J = J-1 


[540] 

1080 

GOSUB 3230 


[955] 

1090 

RETURN 


[ 555 ] 

1100 

REM <<< links >>> 


[1167] 

1110 

IF 1=1 THEN 1160 


[1177] 

1120 

IF 1=4 AND ( j < 4 OR j>6) THEN 1160 


[1056] 

1130 

GOSUB 3230 


[955 ] 

1140 

1=1-1 


[440] 

1150 

GOSUB 3230 


[955 ] 

1160 

RETURN 


[ 555 ] 

1170 

REM <<< rechts >>> 


[591] 

1180 

IF 1=9 THEN 1230 


[939] 

1190 

IF 1=6 AND (j<4 OR j>6) THEN 1230 


[1391] 

1200 

GOSUB 3230 


[955 ] 

1210 

1=1 + 1 


[444] 

1220 

GOSUB 3230 


[955] 

1230 

RETURN 


[555] 

1240 

REM ***<<< Richtung bestimmen >>>*** 

[2139] 

1250 

1alt=i: jalt=j 


[841] 

1260 

GOSUB 2070 


[869 ] 

1270 

IF farbeOl THEN SOUND 1,300,10,7, 

0,0 

[2931] 

, 5:RETURN 



1280 

GOSUB 3140 


[965] 

1290 

1=ialt-2:GOSUB 2130 


[655] 

1300 

IF m=2 THEN 1370 


[891] 

1310 

1=1a1t+2:GOSUB 2130 


[1161 ] 

1320 

IF m=2 THEN 1370 


[891 ] 

1330 

1=1alt:j=jalt-2:GOSUB 2130 


[1961] 

1340 

IF m=2 THEN 1370 


[891 ] 

1350 

j = j alt+2:GOSUB 2130 


[1408] 

1360 

IF m< >2 THEN SOUND 1,100,10,7:1 = 1alt: 

[3340] 

j=j alt:RETURN 



1370 

GOSUB 3230 


[ 955 ] 

1380 

IF INKEY(72)=0 THEN GOSUB 1450 


[1303] 

1390 

IF INKEY(73)=0 THEN GOSUB 1550 


[1630] 

1400 

IF INKEY(74)=0 THEN GOSUB 1650 


[1426] 

1410 

IF INKEY(75)=0 THEN GOSUB 1750 


[1029] 

1420 

IF INKEY( 7 6 ) '=0 THEN 1840 


[627] 

1430 

GOTO 1380 


[423] 

1440 

REM <<< oben >>> 


[891] 

1450 

jm= j:1m=1 


[468] 

1460 

j=jalt+2:1=1alt:GOSUB 2130 


[1248] 

1470 

IF m< >2 THEN SOUND 1,200,10,7,0,0, 

3: j 

[3955 ] 

= jm: ■ 

i=im:RETURN 



1480 

GOSUB 3230 


[955] 

1490 

Jml = j 


[74] 

1500 

J = jm:1=1m 


[1025] 

1510 

GOSUB 3230 


[955] 

1520 

j =j m1:1 = 1alt 


[612] 

1530 

RETURN 


[555] 

1540 

REM <<< unten >>> 


[517] 

1550 

jm=j:im=1 


[ 468] 

1560 

j=jalt-2:1=ialt:GOSUB 2130 


[2089] 

1570 

IF m< > 2 THEN SOUND 1,200,10,7,0,0, 

3: j 

[3955] 

=jm: 

1=1m:RETURN 



1580 

GOSUB 3230 


[ 955 ] 

1590 

jntl= j 


[74] 

1600 

j = jm:1=im 


[ 1025] 

1610 

GOSUB 3230 


[955 ] 

1620 

j=jml:i=1alt 


[612] 

1630 

RETURN 


[555 ] 

1640 

REM <<< links >>> 


[1187] 

1650 

im=1:jm=j 


[ 587 ] 

1660 

1=1alt-2:j=jalt:GOSUB 2130 


[2281 ] 

1670 

IF m<>2 THEN SOUND 1,200,10,7,0,0, 

3: 1 

[3449] 

= 1m:, 

j=jm:RETURN 



1680 

GOSUB 3230 


[955 ] 

1690 

1 ml= 1 


[ 575 ] 

1700 

1=im:j=jm 


[1283] 

1710 

GOSUB 3230 


[955 ] 

1720 

1=1ml:j=jalt 


[ 873 ] 

1730 

RETURN 


[ 555 ] 

1740 

REM <<< rechts >>> 


[591 ] 

1750 

im=i:jm=j 


[ 587] 

1760 

1=1alt+2:j=jalt:GOSUB 2130 


[2302 ] 

1770 

IF m< > 2 THEN SOUND 1,200,10,7,0,0, 

3: 1 

[3449 ] 

= i m: 

j=jm:RETURN 



1780 

GOSUB 3230 


[955 ] 

1790 

1 ml= 1 


[ 575 ] 

1800 

1 = 1 m:j = jm 


[1283] 

1810 

GOSUB 3230 


[955] 

1820 

1=iml:j =j a11 


[ 873] 

1830 

RETURN 


[ 555 ] 

1840 

REM ***<<< Steine versetzen >>>*** 

[2915] 


Listing Gitter 
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[—Programm 


1850 IF 1=1alt AND j=jalt THEN GOSUB 3230: [4339] 
RETURN 

1860 1 von(44-stein) = 1alt:jvon(44-stein)=ja [2295] 
1870 1 bls(44-stein) = 1 :jbls(44-stein)=j [2249] 


1880 1r=i-1alt:jr=j-ja1t [1344] 

1890 1=ialt:j=jalt:f=2:GOSUB 3170 [1481] 


1900 FOR Z =1 TO 17 

1910 1 =1 al t+1 r/2 : j = jalt + jr/2:f = 2:GOSUB 31 

70 

1920 1=1alt:j = jalt:f=l:GOSUB 3170 

1930 SOUND 1,30,4,7 
1940 NEXT z 

1950 i = 1 al t+1 r:J = jalt + jr:GOSUB 3170 

1960 SOUND 1,100,6,7 

1970 FOR z=l TO 200:NEXT z 

1980 1=1a1t:j=ja1t:GOSUB 3170 

1990 1=1alt+1r:j =ja!t+jr:GOSUB 3170 

2000 1=1alt+1r:j=jalt+jr:f=2:GOSUB 3170 


[1177] 

[3255] 

[1245] 
[1254] 
[ 354] 
[2647] 
[1251] 
[2382] 
[ 699] 
[2647] 
[2462] 


2010 SOUND 1,100,10,7 

2020 GOSUB 3230 

2030 1=1alt:j=jalt:GOSUB 3230 

2040 1=1alt+ir:j=jalt+jr:GOSUB 3230 

2050 steln=ste1n-1:GOSUB 830 

2060 RETURN 

2070 REM *** Pkt.tost *** 

2080 IF 1<1 OR 1>9 OR j<l OR j>9 THEN färb 

e=0:GOTO 2110 

2090 x = xX(1,j):y = yX(i,j ) 

2100 farbe=TEST(x,y) 

2110 RETURN 

2120 REM *** Pruefroutine *** 

2130 1r=1-1alt:jr=j-jalt 
2140 m=0 

2150 1=1alt+1r/2:j=jalt+jr/2 

2160 GOSUB 2070 

2170 IF farbe=l THEN m=m+l 

2180 1=1alt+1r:j=jalt+jr 

2190 GOSUB 2070 

2200 IF farbe=3 THEN m=m+l 

2210 RETURN 

2220 REM ***************** Menue 

2230 LOCATE 1,21:PRINT CHR$(242);" , ";CHR 

$(243);'* , Feuer" 

2240 GOSUB 3140 
2250 t=l 

2260 LOCATE 1,4:PRINT CHR$(18) 

2270 LOCATE 1,4:PRINT text$(t); 

2280 IF INKEY(74)=0 THEN t=t-l:GOTO 2320 
2290 IF INKEY(75)=0 THEN t=t+l:GOTO 2320 
2300 IF INKEY(76)=0 THEN 2360 
2310 GOTO 2280 
2320 IF t<l THEN t=5 
2330 IF t > 5 THEN t=l 
2340 FOR z=l TO 200-.NEXT z 
2350 GOTO 2260 

2360 LOCATE 1,4:PRINT CHR$(18); 

2370 LOCATE 1,21:PRINT " M = Menue 
2380 ON t GOTO 2390,2800,2420,2970,2990 


[1218] 

[955] 

[ 759 ] 
[2659] 

[ 593] 
[555] 

[1114] 
[1782] 

[1468] 

[ 108] 

[ 555 ] 

[1967] 

[1344] 

[181] 

[2315] 

[869] 

[880] 

[1444] 
[869 ] 
[1147] 
[ 555 ] 
[1140] 
[2435] 

[965] 

[ 276 ] 
[ 2120 ] 
[2957] 
[ 1509] 
[963] 

[ 761] 

[ 339 ] 

[ 388 ] 
[619] 
[2382] 
[359] 
[2337] 
[1879] 
[1126] 


2390 REM <<< zurueck zum Spiel >>> [1593] 

2400 GOSUB 3140 [965] 

2410 GOTO 870 [534] 

2420 REM <<< Ende erreicht >>> [1862] 

2430 CLS t 91 J 

2440 PRINT CHR$(22);CHR$(1); [1398] 

2450 LOCATE 15,1:PEN 3:PRINT "B w r u g" [2041] 

2460 LOCATE 15,1:PEN 2:PRINT " e e t n" [3124] 
2470 LOCATE 15,2:PEN 1:PRINT"= = = = =" [1900] 

2480 LOCATE 15,2:PEN 3:PRINT" = = = =" [1669] 

2490 PRINT CHR$(22);CHR$(0); [1402] 

2500 LOCATE 2,4:PEN 3:PRINT"Du hast";ste1n [5261] 
;"Steine stehen lassen ." 

2510 IF steln<=lscore THEN 2570 [773] 

2520 LOCATE 2,8:PRINT "Das Ist leider kein [3385] 
e neue Bestmarke ." 

2530 n=ste1n-1score [288] 

2540 LOCATE 2,10:PRINT"Du hast"n"Ste1 ne me [ 4239] 
hr stehen lassen" 

2550 LOCATE 2,12:PRINT"als "name$" [2583] 

2560 GOTO 2650 [305] 

2570 lscore=ste1n [1122] 

2580 LOCATE 4,8:PRINT "Das Ist eine neue B [5990] 
estmarke !!!" 


Llsllng Gitter 


2590 GOSUB 3140 [965] 

2600 WHILE INKEY$< >"":WEND [ 1786] 

2610 LOCATE 2,10:PEN 3:INPUT"Wie nennt sic [4612] 
h der Meister ";name$ 

2620 IF LEN(name$)>10 THEN LOCATE 4,17:PRI [2892] 
NT CHR$(7):GOTO 2610 


2630 IF name$="" THEN name$="Nobody" [1171] 

2640 LOCATE 1,16:PRINT CHR$(20);‘ [1226] 

2650 LOCATE 10,16:PEN 2:PRINT"Der ";name$; [ 2673] 

" hat nur" 

2660 LOCATE 15,17:PRINT 1 score;"Steine" [2151] 

2670 LOCATE 13,18:PRINT "stehen lassen !" [2028] 

2680 FOR 2=500 TO 10 STEP -3 [1339] 

2690 IF 1score=ste1n THEN SOUND l.z.3,7 E [2236] 
LSE SOUND 1,510-z,3,7 

2700 NEXT z [354] 

2710 LOCATE 13,25:PEN 1:PRINT"We1ter mit E [3174] 
NT ER " 

2720 LOCATE 1,1 [611] 

2730 n=1000 [215] 

2740 WHILE (INKEY$< >CHR$(13) AND n>0) [2722 ] 

2750 PRINT " "; [673] 

2760 n=n-1 [104] 

2770 FOR Z=1 TO 10:NEXT z [1459] 

2780 WEND [390] 

2790 GOTO 60 [390] 

2800 REM <<< Schritt zurueck >>> [2460] 

2810 IF steln=44 THEN 2940 [1963] 

2820 GOSUB 3230 [955] 

2830 steln=stein+1 [667] 

2840 GOSUB 830 [830] 

2850 1=1von(44-ste1n):j=jvon(44-ste1n) [3491] 

2860 1 m=1bls(44-stein):jm=jbls(44-stein) [2306] 

2870 GOSUB 3170 [959] 

2880 GOSUB 3230 [955] 

2890 1=(1+1m)/2:j=(j+jm)/2 [1249] 

2900 GOSUB 3170 [959] 

2910 1=1m:j=jm [1283] 

2920 GOSUB 3170 [959] 

2930 1=1 von(44-stein):j=jvon(44-stein ) [3491] 

2940 SOUND 1,50,5,7:SOUND 1,200,5,7:SOUND [4257] 
1,60,5,6 

2950 GOSUB 3140 [965] 

2960 GOTO 870 [534] 

2970 REM <<< Neustart >>> [1207] 

2980 GOTO 60 [390] 

2990 REM <<< Spiel abbrechen >>> [877] 

3000 CLS t gl 5 

3010 PEN 3 [547] 

3020 LOCATE 2,4:PRINT"Es ist sehr schade , [3753] 

dass du schon 

3030 LOCATE 2,6:PRINT”aufhoerst . [2081] 

3040 PEN 2 [548] 

3050 LOCATE 2,9:PRINT'Bis zum naechsten Ma [2543] 
1 . 

3060 PEN 1 [549] 

3070 LOCATE 2,11:PRINT"See you again [2527] 

3080 FOR z=l TO 200 [1157] 

3090 s=INT(RND*300) [528] 

3100 SOUND 1,3,2,7 [1216] 

3110 NEXT z [354] 

3120 LOCATE 1,23 [733] 

3130 END [HO] 

3140 REM *** Joystick loeschen *** [1774] 

3150 WHILE JOY(O)<>0:WEND ' [1567] 

3160 RETURN [555] 

3170 REM *** Stein setzen / loeschen *** [1227] 

3180 x=xX(i,j):y=yX(1,j) [1468] 


3190 MOVE x-2,y:DRAWR 0,24,f:MOVE x,y-2:DR [5816] 
AWR 0,26:MOVE x+2,y:DRAWR 0,24 

3200 MOVE x-4,y:DRAWR 4,-4,3:MOVER 2,2:DRA [2261] 
WR 2,2 

3210 MOVER 2,0:DRAWR -4,-4:M0VER -4,0:DRAW [1479] 
R -4,4 


3220 RETURN [555] 

3230 REM *** Pfeil setzen / loeschen *** [2120] 

3240 x=xX(1,j):y=yX(1,j) [1468] 

3250 MOVE x-30,y+20:DRAWR 15,-15,2:MOVER - [3115] 

10,0:DRAWR 10,0:DRAWR 0,10 

3260 RETURN [555] 


Llsting Gitter 
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- Das Ist die Software zur PC-International - 

— Jeden Monat neu — 


DATABOX: 

— mehr als der übliche 
Softwareservice 

— bringt ergänzend 
sämtliche Listings 
der jeweiligen Zeit¬ 
schrift und alle 
Programmbeispiele 
auf Kassette oder 
auf 3”Diskette. 

— Programme sind, 
soweit system¬ 
bedingt möglich, auf 
allen drei CPC- 
Modellen lauffähig. 
Einzelheiten entneh¬ 
men Sie bitte der 
nebenstehenden 
Aufstellung. 

— soweit die Program¬ 
me nicht Bestandteil 
einer Serie sind, 
befinden sich alle 
Programme als 

,ready to run’ auf der 
Databox. 

— erscheint jeden 
Monat und trägt das 
Titelbild des gleich¬ 
zeitig erscheinenden 
Heftes. 

— der Datenträger zur 
PC International ent¬ 
hält außerdem je¬ 
desmal ein zusätzli¬ 
ches Bonuspro¬ 
gramm, das nicht im 
Heft abgedruckt ist. 



***>» 

1 


Amstrad 


CPC ■ PCW JOYCE • PC 


Großer 

Testbericht: 




Dos Flaggschiff 
- PC *300 Im Tost 


Ai C-64 Soundchip 
•£ am CPC 
CD - die neue 
O Klangdimension 


Für CPC: 


Joyce: 


CehttlmbAfnhla sichtbar gemooht 
Nouo Schnitts teils tur Stontvungon 


Viele Interessante Programme 

- Tllgungsrechnung noch 
neuem Gesetz 

- Strateglesplel 


Für alle CPCs als Kassette und 
3“-Diskette. 

Auch als Abonnement mit Preisvorteil 
erhältlich. 


Einzelbezugspreise für Databox: 


3-Zoll'Diskette 


Inland: 

Einzelpreis 24, - DM 

zzgl Versandkosten 4,- DM 

Ausland: 

Einzelpreis 
zzgi. Versandkosien 

24,- 0M 
8 ,- 0M 

Endprela 28,- DM 

Endprais 

30,- 0M 


Kassette 


Inland: 

Ausland: 


Einzelpreis 14.- DM 

Einzelpreis 

14.- DM 

zzgi. Versandkoaten 4,- DM 

zzgl, Versandkosten 

6 ,- DM 

Endpreis 18.- 0M 

Endprais 

20,- DM 


Zahlungswelse: 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Liefe¬ 
rungen ins Ausland ist Nachnahme nicht 
möglich. 

Preisvorteil durch Databox-Abo: 

Unser beliebter Databox-Service kann 
selbstverständlich auch im Abonnement 
bezogen werden. Dadurch sparen Sie 
Mühe und haben außerdem noch einen 
Preisvorteil gegenüber dem Einzelbezug. 



Inhalt der Databox zu Heft 8/89: 

Programm 464 664 6128 

Im Zauberreich der Grafik • • • 

Musikalischer Leiharbeiter • • • 

Assemblerecke • • • 

Nur einer kann überleben • • • 

Wenn das Bargeld lacht.. • • • 

1-kByte-Gummi • • • 

1-kByte-Tauschen • • • 

1-kByte-Keytrans • • • 

1-kByte-Zoom © • • 

1-kByte-List • 

1-kByte-Kreis • • • 

Hard und Soft Hardcopy für 

Seikosha 180AI • • 

Rückmeldung in BASIC • 

Hilfe gesucht, mit »Comfort« 

gefunden • • • 

Checksummer • • • 

| Emulator • © • 

Bonusprogramm: Mercator • • • 

Die DATABOX enthält noch INFO-Files (MNF) 


Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr 
(6 Lieferungen): 

Im Inland und West-Berlin.90,— DM 

Im europäischen Ausland...100,— DM 

Im außereuropäischen Ausland.120,— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.150— DM 

Im europäischen Ausland.160,— DM 

Im außereuropäischen Ausland.180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.180,— DM 

Im europäischen Ausland.200,— DM 

Im außereuropäischen Ausland.240,— DM 

Als Diskette lür 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.300,— DM 

Im europäischen Ausland.320,— DM 

Im außereuropäischen Ausland.360,— DM 

Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte. 

Widerrufsrecht: Wir garantieren jedem Abonnenten das 
Recht, seine Bestellung innerhalb einer Woche nach Ab¬ 
schluß schriftlich beim DMV-Verlag, Postfach 250, 
3440 Eschwege, zu widerrufen. Die rechtzeitige Ab¬ 
sendung des Widerrufsschreibens genügt zur Fristwah¬ 
rung. 


DMV-verlag - Postfach 250 - 3440 Eschwege 

Bitte Bestellkarte benutzen! 






















































[—Programm 


Wenn das Bargeld lacht... 

Tilgungsberechnung nach dem 
neuen Gesetz 

In diesem Jahr stellte sich das Problem, eine Tilgungsbe¬ 
rechnung für die Hypotheken vorzunehmen. Da vom Bun¬ 
desgerichtshof im November 1988 ein Grundsatzurteil über 
Tilgungsverrechnungen in Hypotheken gefällt wurde, ist es 
interessant, ob es sich überhaupt lohnt, auf der Tilgungsbe¬ 
rechnung zu bestehen. Bisher war es üblich, die Tilgung 
jährlich zu verrechnen! Mit dem Programm “Tilgungsbe¬ 
rechnung“ wurden die Kontoauszüge (Hypotheken) über¬ 
prüft und eine Neuberechnung auf der Grundlage der so¬ 
fortigen Tilgungsverrechnung durchgeführt. 



Um den Sinn dieses Programms zu er¬ 
läutern, möchten wir kurz einige Er¬ 
klärungen hierzu geben: Da die Banken 
verschiedene Zins- und Tilgungssätze 
anbieten, ist es zunächst einmal wich¬ 
tig, im Rahmen seiner finanziellen 
Möglichkeiten die Höhe der Belastung 
zu ermitteln (nur beim Neuabschluß). 
Die Hypotheken werden nach dem 
Prinzip der regelmäßigen Tilgungsra¬ 
ten abgerechnet. Würde man zum Bei¬ 
spiel nur 1 % tilgen, wäre die Laufzeit 
100 Jahre. 

Da die Zinsen während der gesamten 
Laufzeit auf die Ursprungssumme be¬ 
rechnet werden, obwohl sich die Sum¬ 
me ständig vermindert, verkürzt sich 
die Laufzeit, da die zuviel bezahlten 
Zinsen (ersparte Zinsen) als Tilgung 
angerechnet werden. Das bedeutet, daß 
die Zinsen am Anfang überwiegen, 
während die Tilgungen zum Ende der 
Laufzeit überwiegen. Mit dem Pro¬ 
gramm ist es möglich, die Laufzeit und 
die monatliche Belastung zu ermitteln. 
Der Tilgungsplan wird für die gesamte 
Laufzeit ausgedruckt: als Beispiel sie¬ 
he Tabelle 1. 

Außerdem kann man die Gesamtbela- 
stung für die gesamte Laufzeit ermit¬ 


teln. Die Tilgungshöhen von mehreren 
Prozent sind jedoch für den Normal¬ 
verbraucher im allgemeinen nicht trag¬ 
bar, da die Belastungen bei großen Hy¬ 
potheken entsprechend ansteigen. 

Das Programm ist in der Lage, über 
längere Zeiträume die Tilgungsberech¬ 
nung durchzuführen. Da die Tilgungs¬ 
raten, wie schon oben angeführt, frü¬ 
herjährlich verrechnet wurden und seit 
dem Grundsatzurteil des Bundesge¬ 
richtshofes in allen bestehenden Ver¬ 
trägen (auch rückwirkend) auf der 
Grundlage der sofortigen Tilgungsver¬ 
rechnung neu zu berechnen sind (siehe 
Tabelle 2). Wie Sie sehen, ist der Ge¬ 
samtaufwand der gleiche, jedoch die 
Verteilung zwischen Zinsen und Til¬ 
gung ändert sich. In diesem Beispiel 
beträgt die Abweichung in der Til¬ 
gungshöhe zirka 150 DM. 

Bei längeren Laufzeiten (zum Beispiel 
10 Jahre) erhöht sich dieser Betrag er¬ 
heblich (zirka 600 DM). Diesen Betrag 
können Sie unter Berufung auf das 
Grundsatzurteil bei Ihrer Bank geltend 
machen. 

Achten Sie bei der Berechnung darauf, 
daß Sie immer den gleichen Gesamt¬ 
aufwand erhalten, damit eine Ver¬ 


gleichsmöglichkeit gegeben ist. Die 
Verjährungsfrage ist jeweils mit der 
Bank zu klären. 

Programmbeschreibung 

1. Programm eingeben und testen 

Bei dem Programm wurde Wert auf be¬ 
sonders gute Menüführung gelegt. Das 
Menü gebraucht deshalb auch zwei 
Drittel des Speicherplatzes. Die Vor¬ 
teile bemerken Sie, wenn Sie von der 
gleichen Hypothek mehrere Varianten 
(Laufzeitänderung, Zins- oder Til¬ 
gungshöhe ändern) rechnen. Tippen 
Sie deshalb die Zeilen 1000 bis 2490 
besonders sorgfältig ab. Testen Sie bit¬ 
te das Programm erst, nachdem Sie es 
komplett eingegeben haben, da Symbo¬ 
le und Key-Defs verwendet werden 
(Zeile 1060). 

2. Menü 

2.1 Start Nach dem Start des Program¬ 
mes erscheint im Hauptmenü links 
oben ein Pfeilsymbol. Mit den Cursor¬ 
tasten kann der Pfeil in die entspre¬ 
chende Zeile gebracht werden. Durch 
Drücken der COPY-Taste geht der 
Pfeil in die entsprechende Zeile. Mit 
den Pfeiltasten wird die gewünschte 


T I 

L G U N G 

6 P L A N 



NaneSArnoid Amsmd 

Sank:Hausbar* 



KontoMiMMr: 4646*44128 

Bank!ei»zahl:1010101010 


Ursprungskapitais 70000.00 

Zinssatz: 7.00V. 

TUqungssatz 

1,00X 

Tilgungsbeginn: 1/1978 

1iIgungsende: 12/1982 


T i tqiinqsverrechnuna! jaehr 1 ich 



Faelhgkeit 

ijesajitieistung 

Zinsen 

Tilgung 

Restkapital 

l 1978 

5400.00 

4900.00 

700.00 

69300.00 

1 1979 

5400.00 

4851.00 

749.00 

68551.00 

1 1980 

5600.00 

4798.57 

801.43 

67749.57 

1 1981 

5600.00 

4742.47 

857.53 

66892.04 

1 1982 

5600.00 

4682.44 

917.56 

65974.48 

ftes’kap »fall 




65974.48 

besa*Uutwarni: 

28000.00 

23974.48 

4025.52 



Abb.I: Übersicht einer jährlichen Tilgung 
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S P L A N 



Name:ArnoId ftnstrad 

Bank.: Hausbari k 



Kon t onuiMte r: 4646646128 

Bankleitzahl:1010101010 


Ursprungskapital: 70000.00 

Zinssatz: 7.00% 

Tilgungssatz: 

1.00X 

Tugungsbeginn: 1/1978 

TiLgungsende: 12/1982 


Ti IgungsverrechnunqJmonatl ich 



Faelligkeit 

Besautleistung 

Zinsen 

Tilgung 

Restkapital 

7 1982 

466.67 

386.81 

79,86 

66230.08 

8 1982 

466.67 

386.34 

80.32 

66149.76 

9 1982 

466.67 

385.87 

80.79 

66068.97 

10 1982 

466.67 

385.40 

81.26 

65987.70 

11 1982 

466.67 

384,93 

81.74 

65905.96 

12 1982 

466.67 

384.45 

82.22 

65823.75 

Rest kapital: 




65823.75 

OesantaufMnd: 

28000.00 

23823.75 

4176.25 



Abb.2: Und so sieht die Tilgung bei einer monatlichen Verrechnung aus 
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Programm—i 


Hypothek 

Zinssatz Tilgungssatz Laufzeit 

70000 DM 

7% 

1% 

zirka 30 Jahre 

70000 DM 

7% 

2% 

zirka 21 Jahre 

70000 DM 

7% 

3% 

zirka 17 Jahre 

70000 DM 

7% 

4% 

zirka 14 Jahre 


Tabelle 1: Beispiel einer möglichen Laufzeitberechnung mit variablem Til¬ 
gungssatz 


Ursprungshypothek 70000 DM 
Zinssatz: 7% 

Tilgungssatz: 1% + ersparte Zinsen 
Gesamtaufwand in 5 Jahren = 28000,00 DM 
monatliche Belastung 28000/60 = 466,67 DM 

ZINSEN TILGUNG GESAMT 
jährliche Verrechnung: 23974,48 4025,52 28000,00 

halbjährl. Verrechnung: 23894,01 4105,99 28000,00 

vierteljährl. Verrechnung: 23852,22 4147,78 28000,00 

monatlicher Verrechnung: 23823,75 4176,25 28000,00 


Tabelle 2: Die Höhe des Tilgungssatz.es ist abhängig vom Abrechnungszeit¬ 
raum 



TILG 

J N G S P 

LAN 


NaueJAmold Aßs'raa 

BanLHausbank 



Kon* onuamer: «646648128 

Banklei 'zahUlOlOlOlölO 


Ursprunqsl'dPi tat: 70000.00 

Zinssatz: 7.007. 

Tilqunqssatz: 

5.Q0X 

Tilgungsbeg 

inns 1/1978 

TiIgungsend»: 1/2009 


Tilgungsverrechnungsjaehrl ich 



Fälligkeit 

Gesamt leis tune 

Zinsen 

Tilgung 

Restkapital 

1 1778 

8400.00 

4900.00 

3500.00 

66500.00 

1 1979 

8400.00 

4655.00 

3745.00 

62755.00 

l 1980 

8400.00 

4372.85 

4007.15 

58747.85 

1 1981 

8400.00 

4112.35 

4287.65 

54460.20 

1 1982 

8400.00 

3812.21 

4587.79 

«9872.41 

1 1983 

8401) .00 

3491.07 

4908.93 

44963.48 

1 178« 

8400.00, 

3147.44 

5252.56 

39710.93 

1 1-785 

8400.00 

2779.76 

5620.24 

34090,69 

1 1786 

8400.00 

2386.35 

6013.65 

28077.04 

1 1987 

8400.1)*) 

1965.39 

6434.61 

21642.43 

1 1988 

8400.00 

1514.97 

8885.03 

14757,40 

l 1989 

8400.00 

1033.02 

7366.98 

7390.42 

Rest: 

7390.42 


7390.42 

0.00 

(jesa«Uufwan<j: 

108170.42 

38190.42 

70000.00 

0.00 


Abb.4: Der Gesamtaufwand ist bei einem Tilgungssatz von fünf Prozent 
wesentlich geringer. Siehe Abb. 3 


Funktion angewählt (Inversdarstel¬ 
lung) und mit COPY bestätigt. 

2.2 Texteingaben 

Die Texteingaben (NAME, BANK, 
KONTONUMMER, BLZ) werden auf 
den blauen Feldern zeilenweise einge¬ 
tragen und mit COPY bestätigt. 

2.3 Ursprungshypothek, Zeiträume 
Die Höhe und der Tilgungsbeginn der 
Hypothek ist einzutragen. Wählen Sie 
das Berechnungsende, falls Sie nicht 
nur einen begrenzten Zeitraum rechnen 
wollen, immer länger als die Laufzeit 
der Hypothek, da das Berechnungsen¬ 
de Vorrang vor dem Laufzeitende hat. 

2.4 Ausgabe über Drucker/Bild¬ 
schirm 

Stellen Sie auf Ihrem Drucker eine 
neue Seite ein. Falls die Ausgabe über 
den Drucker läuft, erfolgt die Anzeige 
parallel auf dem Bildschirm. Wenn der 
Bildschirm gefüllt ist, ist immer eine 
Taste zu drücken, um den Druckvor- 
gang fortzusetzen. Nach Ausdruck von 
54 Zeilen erfolgt automatisch ein Blatt¬ 
vorschub und die Kopfzeile wird er¬ 


T IL.6tUNGSPL.AN 

Name:Arnol>l Aastrad BanUHausban*. 

Kan t onuamer : 4646646128 Ban k, 1 e 1 1 zahl : 1010101010 

Orsprungskapital: 7000*3.00 Zinssatz: 7.00X Tilqunqssatz: 
Tilgungsbeginn: 1/1978 Tilgungsende: 1/2009 

Ti lqungsverrechnung:jaebrl ich 

1.00X 

Faelhqk.ei* 

Gesamtleistung 

Zinsen 

Tilgung 

Reslkap 1 tal 

1 1978 

5600.00 

4900.00 

700,00 

69300.00 

1 1979 

5600.00 

4851.00 

749.00 

68551.00 

1 1980 

5600.00 

479-8,57 

801.43 

67749.57 

1 1981 

5600.00 

4742.47 

357.53 

66892.04 

1 19e2 

5600.00 

4682.44 

917.56 

65974.48 

1 1983 

5600.00 

4618.21 

981.79 

64992.70 

l 1984 

5600.00 

4549.49 

1050.51 

63942.19 

1 1985 

5600.00 

4475.95 

1124.05 

62818.14 

1 1986 

5600.00 

4397.27 

1202.73 

61615.41 

1 1987 

5600.00 

4313.08 

1286.92 

60328.49 

1 1988 

5600,00 

4222.99 

1377.01 

58951.4? 

1 1989 

5600.00 

4126.60 

1473.40 

57478.08 

1 1-990 

5600.00 

4023.47 

1576.53 

55901.55 

1 19-91 

5600.00 

3913.11 

1686.39 

54214.66 

l 1992 

5600.00 

3795.03 

1804.97 

52409.68 

1 1993 

5600.00 

3668.68 

1931.32 

50478.36 

1 1994 

5600.00 

3533.49 

2066.51 

48411.85 

1 1995 

5600.00 

3388.63 

2211.17 

46200.68 

l 1996 

5600.00 

3234.05 

2365.95 

43834.72 

1 1997 

5600.00 

3068.43 

2531.57 

41303.16 

1 1998 

5600.00 

2891,22 

2708.76 

38594,33 

l 1999 

5600.00 

2701.61 

2898.39 

35695.93 

1 2000 

5600.00 

2498.72 

3101.23 

32594.70 

1 2001 

5600.00 

2281.63 

3318.37 

29276.33 

1 2002 

5600.00 

2049.34 

3550,66 

25725.67 

1 2003 

56Ö0.00 

18t».80 

3799.20 

21926.47 

1 2004 

5600.00 

1534.85 

4065.15 

17861.32 

1 2005 

5600.00 

1250.29 

4349.71 

13511.62 

1 2006 

5600.00 

945.81 

4654.19 

8857.43 

1 2007 

5600.00 

620.02 

4979 .-98 

3877.45 

Res»: 

3877.45 


3877.45 

0.00 

Gesamtaufwand: 

171377.45 

101877,45 

70000.00 

0.1» 


Abb.3: Der Gesamtaufwand bei einem Tilgungssatz von einem Prozent 


neut gedruckt. Der Druckvorgang 
kann mit ESC(2x) und GOTO 1000 ab¬ 
gebrochen werden ohne Datenverlust! 

2.5 Speichern und Laden 

Nach Anwahl dieser Funktionen in der 
unteren Menüzeile kann wie gewohnt 
(maximal acht Zeichen, kein Leerzei¬ 
chen) geladen oder gespeichert wer¬ 
den. Wird nur ENTER betätigt, kehrt 
das Programm in das Menü zurück. 

2.6 Ende 

Wählen Sie diese Funktion an, wenn 
Sie das Programm beenden wollen. 
Die KEY-DEF- und SYMBOL-AF- 
TER-Funktionen werden zurückge¬ 
setzt. Warmstart ohne Datenverlust ist 
mit GOTO 1000 möglich. 

Der Grund, weshalb dieses Programm 
entstanden ist, war ein Grundsatzurteil 
des Bundesgerichtshofes vom 
24.11.1988 (III 2R 188/87 und 
156/87), wonach alle Hypotheken auf 
der Grundlage einer sofortigen Til¬ 
gungsverrechnung zu berechnen sind. 
Dieses Urteil wurde auch ausführlich 
in der Presse beschrieben. 


Daraufhin habe ich einen Antrag auf 
Neuberechnung meiner Hypotheken 
gestellt. Meine Bank hat meine An¬ 
sprüche anerkannt und teilte mir mit, 
daß die Berechnung des neuen Til¬ 
gungsplanes einige Zeit in Anspruch 
nimmt. Um den Hypothekennehmer 
die Angst vor den allmächtigen Banken 
zu nehmen und die Problematik einer 
Hypothekenberechnung zu erläutern, 
habe ich einige Beispiele beigefügt. 

Ich wünsche Ihnen viel Freude und Er¬ 
folg (in DM) mit dem Programm. 

Hinweis 

Die Druckercodes sind auf dem NLQ 
401 abgestimmt. Änderungen sind an¬ 
hand Ihres Druckerhandbuches mög¬ 
lich. Kassettenbesitzer müssen aller¬ 
dings darauf achten, daß der CAT-Be- 
fehi in dem Lade-und Speichermenü 
weggenommen werden sollte. Der Da¬ 
teiname kann auf der Kassette vermerkt 
werden. 

(Johannes Hansen/cd) 
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für 464-664-6128 


************************ 

* Tilgungsberechnung * 

* * 

* 1989 by J.Hansen * 

************************ 


*** Menue anspringen *** 


90 CLEAR:warte=70:x = 1:y=l 
100 GOTO 1010 
110 ' 

120 '*»* Variablen Init **» 

130 ’ 

140 SYMBOL AFTER 32:KEY OEF 39,1.44,60:KEY 
DEF 9,1,224 

150 IF x=l THEN xx=l ELSE IF x=2 THEN xx=2 
ELSE IF x = 3 THEN xx = 4 ELSE IF x = 4 THEN xx 
= 12 

160 MODE 2 : zei1e = 0 

170 IF y=2 THEN GOSUB 780'Kopf2ei1e drucke 
n 

180 sumzig=0:sumzi=0:sumti=0:sumrek=0 
190 ' 

200 ' *»** AUSGABE BI LOSCHIRM/DRUCKER **** 

210 ' 

220 PRINT" Faelligkeit Gesamtleistung 

Zinsen Tilgung Restkap 

i t a 1 " 

230 IF y=2 THEN PRINT#8,SPC(30)" Faelligke 
it Gesamtleistung Zinsen 

Tilgung RestkapitalPRINT#8,SPC(30 

)STRING$(80, 

240 PRINT STRING$(80,154) ; 

I 250 ’ 

260 '**•* BERECHNUNG der 1. Zeile »*** 

270 ' 

280 2 ig=((urkap*(t+ 2 ))/100)/xx 

290 rek=urkap 

300 ti=(urkap»t/100)/xx 

310 zi=((urkap*z)/100)/xx 

320 rek=rek-ti 

330 sumz1g=sumz1g+zig:sumzi=sumzi+zi:sumt1 
=sumti+t1:sumrek=sumrek+rek 

340 '***» AUSGABE BILDSCHIRM/DRUCKER **** 

350 PRINT USING" ## #### #####. 

## ####.## ####.## 
#####.##";tbmonat,tbjahr,zig,zi,ti,rek 
360 IF y = 2 THEN GOSUB 920 : PRI NT#8,SPC(30)U 
SING" ## #### #####.## 

####.## ####.## ##»##.#»";t 

bmonat,tbjahr,zig,zi,ti,rek 
370 • 

380 '***» RECHENSCHLEIFE ***» 

390 ' 

400 IF x =1 THEN tbjahr=tbjahr+l:GOTO 440 
410 IF x=2 THEN tbmonat = tbmonat + 6: I F tbmon 
at> 12 THEN tbmonat = tbmonat-12:tbjahr = tbjah 

i r+1 

420 IF x=3 THEN tbmonat=tbmonat+3:IF tbmon 
at>12 THEN tbmonat=tbmonat-12:tbjahr=tbjah 
r+1 

430 IF x = 4 THEN tbmonat=tbmonat+1:IF tbmon 
a t >12 THEN tbmonat=l:tbjahr = tbjahr+l 
440 IF tbmonat>tbemonat AND tbjahr=tbejahr 
THEN 590 

450 IF tbj ahr > tbej ahr THEN 590 
460 z i = rek»z/100/xx 
470 ti=zig-rek*z/100/xx 

480 rek=rek-ti:IF rek<0 THEN rek=rek+ti:GO 
TO 680 

490 sumzig=sumzig+zig:sumzi=sumzi+z1tsumti 
=sumti+ti 

500 IF VPOS(#0)=21 THEN LOCATE 30,25:PRINT 
CHR$(24)" Taste zum Umblaettern "CHR$(24) 
:WHILE INKEY$<> " " :WEND:CALL &BB18:WIND0W 1 
,80,3,25:CLS:WIN DOW 1,80, 1,25: LOCATE 1,3 


[ 768 ] 
[2045] 
[175] 
[445 ] 

[ 768] 
[117] 
[ 2110 ] 
[117] 

[ 1232 ] 
[ 345] 
[117] 

[ 1128 ] 

[117] 

[2743] 

[3663 ] 


[1257] 
[2427 ] 

[ 1607 ] 
[117] 

[ 1929 ] 
[117] 

[ 6851 ] 


[ 11009 ] 


[1544] 

[117] 

[1189] 

[117] 

[1456] 

[815] 

[1532] 

[1605] 

[ 1005 ] 

[4640] 

[ 1929 ] 
[4145 ] 


[ 5 781 ] 


[117] 

[ 1852 ] 
[117] 

[3024] 
[6401 ] 


[4920] 


[ 5058 ] 


[1843] 
[953] 

[ 1221 ] 
[1926] 

[ 3209 ] 


510 PRINT USING" ## #### #####. 

## ####.## ####.## 
#####.##";tbmonat,tbjahr,zig,zi ,ti , rek 
520 IF y=2 THEN GOSUB 920:PRINT#8,SPC(30)U 
SING“ ## #### #####.## 

####.## ####.## #####.##";t 

bmonat,tbjahr,zig,z1,ti,rek 
530 GOTO 400 
540 ‘ 

550 '*** Summe anzeigen/ausdrucken *»* 

560 1 

570 '1. Abbruch bei Laufzeitende (gemaess 
Menue) 

580 ‘ 

590 PRINT USING"Rest: 

# 

#####.##";rek 

600 PRINT STRING$(80,154); 

610 IF y = 2 THEN PRI NT#8,SPC(30)USING"Restk 
apital: 

######.##";rek 

620 IF y=2 THEN PRINT#8,SPC(30)STRING$(80, 
PRINT#8,SPC(30)USING"Gesamtaufwand: 
######.## ###»##.## ###### 
.##";sumzig,sumzi;sumti 

630 PRINT USING"Gesamtaufwand: ######. 

## ######.## ######.## 
";sumzig,sumzi,sumti 
640 GOTO 730 
650 ' 

660 '2. Abbruch bei Tilgungsende 
670 ' 

680 PRINT USING“Rest: ##### 

## ####.## 

#####.##";rek;rek,0 

690 IF y = 2 THEN PRI NT#8,SPC(30)USING"Rest: 

#####.## 

####.## #####.##";rek,rek,0 

700 PRINT STRING$(80,154); 

710 PRINT USING"Gesamtaufwand: ######. 

## ######.## ######.## 
####.##";sumzig+rek.sumzi.sumti+rek.O 
720 IF y = 2 THEN PRI NT#8,SPC(30)STRING$(80, 

):PRINT#8,SPC(30)USING"Gesamtaufwand: 
######.## ######.## ###### 
.## ####.##";sumzig+rek,sumzi,sumti 

+ rek,0:rek = 0 

730 LOCATE 20,25:PRI NT"ZUM HAUPTMENUE BITT 
E EINE TASTE DRUECKEN" 

740 WHILE INKEY$< >"":WEND:CALL &BB18:GOTO 

1060 

750 1 

760 '*** UNTERPROGRAMM : Kopfzeile drucken 
*** 

770 ' 

780 PRINT#8,CHR$(27)CHR$(73)CHR$(3)CHR$(18 
)SPC(2 3)"T I LGUNGSPLA N";CHR$(27) 
CHR$(73)CHR$(1)CHR$(15) '15 = Kleine Schri 

ft ein; 18 = Kleine Schrift aus; 27/73/3 = 
NLO EIN; 27/73/1 = NLQ AUS 
790 PRI NT #8 

800 PRINT#8,SPC(30)" Name:"name$" 

Bank:";ban k$ 

810 PRINT#8,SPC(30)" Kontonummer:";kon 

to$;" Bankleitzahl:";blz$ 

820 PRINT#8,SPC(30)USING" Ursprungskap 

i tal :######. ## Zinssatz; ###.##56 Tilgun 
gssatz: ###.##* ";URKAP;Z;T 

830 PRINT#8,SPC(30)USING" Tilgungsbegi 

nn: ##/#### Tilgungsende: ##/####";tb 

amonat;tbajahr;tbemonat;tbejahr 
840 IF x =1 THEN ti$=' jaehr1ich" 

850 IF x = 2 THEN ti$="ha 1bjaehr1ich" 

860 IF x=3 THEN t i $="vierte1jaehr1ich" 

870 IF x=4 THEN ti$="monat1ich" 

880 PR I NT#8,SPC(30)" Ti1gungsverrechnu 

n g : " ; t i $ 

890 PRINT#8,SPC(30)STRINGS(80,"-") 

900 RETURN 
910 ' 


[4145] 


[ 5 78 1 ] 


[ 452 ] 
[117] 

[ 721] 
[117] 
[1828] 

[117] 

[3628] 


[1544] 
[ 6324 ] 


[8619] 


[4445] 


[ 427] 
[117] 
[1548] 
[117] 

[3894] 


[5850] 


[1544] 
[5424 ] 


[ 8971 ] 


[ 3476 ] 

[4044] 

[117] 

[ 2100 ] 

[117] 

[ 12460] 


[ 343] 
[3166] 

[ 6549 ] 


[ 7868 ] 


[ 1839 ] 
[2658] 
[2527] 
[ 1425 ] 
[3893] 

[1762] 
[ 555 ] 
[117] 


Listing Tilgung 


Listing Tilgung 
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Programm—| 


920 ’**•* UNTERPROGRAMM: Zeilenabfrage am 
Drucker **** 

930 1 

940 zei1e = zei1e+1:IF zeile<55 THEN RETURN 
950 FOR n=1 TO 0:PRINT48:NEXT 
960 GOSUB 780 

970 PRINT#8,SPC(30)" Faelllgkeit Gesa 

mtleistung Zinsen Tilgung 

Restkapita 1":PRINT#8,SPC(30)STRINGS(80, 

980 zei1e=0:RETURN 
990 ' 

************* 

*** Menue *** 

************* 


-> Aufbau <- 


0:INK 2,11:B0RD 
CLS:SYMBOL AFTE 


1000 
1010 
1020 
1030 
1040 
1050 

1060 MODE 1:INK 0,13:INK 1 
ER 3:INK 3,3:PAPER 0:PEN 1 
R 32:SYMBOL 255,0,0,0,0,0.0,66,126:SYMBOL 
32,0,0,0,0,0,0,66,126:SYMBOL 96,0:KEY DEF 
39,0,0:KEY DEF 9,0,0 

1070 PLOT 150,358,1:DRAW 470,358:DRAWR 0,3 
4:ORAW 150,392:DRAWR 0,-34 

1080 PEN 3:LOCATE 14,2:PRI NT"TILGUNGSPLAN" 
: PEN 1 

1090 PEN 1:LOCATE 3,5:PRINT"NAMEPAP 
ER 2:PRINT STRING$(29,255):PAPER 0:LOCATE 
3,6:PRINT"STRASSE:";:PAPER 2:PRINT STRINGS 
(29,255 );:PAPER 0:LOCATE 3,7:PR INT"WOHNORT 
: " ; :PAPER 2:PRINT STRINGS(29,255);:PAPER 0 
1100 LOCATE 3,9:PRINT'BANK.:";:PAPER 2:PRI 
NT STRINGS(31.255):PAPER 0:L0CATE 3,10:PRI 
NT“KONTO:PAPER 2:PRINT STRING$( 10,255 ) : 
PAPER 0:LOCATE 3,11:PRINT"BLZPAPER 2 
:PRINT STRINGS(10,255):PAPER 0 
1110 LOCATE 3,13:PRINT"URSPRUNGSKAPITAL:"; 

:PAPER 2:PRINT STRINGS(12,255):PAPER 0:LOC 

ATE 3 , 14 : PRINT "ZINSSATZ.PAPER 2 

:PRINT STRINGSC5.255);:PAPER 0:LOCATE 3,15 
'.PRINT "TILGUNGSSATZ. . . . : PAPER 2:PRINT S 

TRING$(5,255);:PAPER 0 

1120 LOCATE 3,16:PRINT"TILGUNGSANFANG..:“; 

:PAPER 2:PRINT STRINGS(7,255);:PAPER 0:LOC 
ATE 3,17:PRINT"TILGUNGSENOEPAPER 2 
:PRINT STRINGS(7,255);:PAPER 0 
1130 LOCATE 3,19:PRINT"TILGUNGS"STRINGS(3, 
9)CHRS(24)"Jaehr1ich"CHR$(24)STRING$(4,9)C 
HRS(168)"jaehr)ich":LOCATE 3,20:PRINT"RATE 
N:"STRINGS(5,9)CHRS(169)"jaehrlich"STRINGS 
(3,9)"monat)ich" 

1140 LOCATE 3,22:PRINT"AUSGABE:"STRINGS(3, 
9)CHR$(24)"Bildschirm"CHR$(24)STRINGSC 3,9) 
"Drucker" 

1150 LOCATE 3,24:PRINT"SPEICHERN"STRING$(2 
,9)"LADEN"STRINGS(2,9)"BERRECHNEN"STRING$( 
2,9 ) "ENDE" 

1160 LOCATE 1,1 

1170 PLOT 8,282:DRAW 632,282:DRAW 632,340: 
DRAW 8,340:DRAW 8,282 'Name/Str/Ort 
1180 PLOT 8,216:DRAW 632,216:DRAW 632,278: 
DRAW 8,278:DRAW 8,216 'Bank/Konto/BLZ 
1190 PLOT 8,122:DRAW 632,122:DRAW 632,212: 
DRAW 8,212:DRAW 8,122 'Kap/Zins/T11gung 

1200 PLOT 8,74:DRAW 632,74:DRAW 632,118:DR 
AW 8,118:DRAW 8,74:PLOT 180,74:DRAW 180,11 
8 ' Raten 

1210 PLOT 8,42:DRAW 632,42:DRAW 632,70:0RA 
W 8,70:DRAW 8,42 'Ausgabe 

1220 PLOT 8,8:DRAW 632,8:DRAW 632,38:DRAW 
8,38:DRAW 8,8 'Menue 

1230 FOR n=1 TO 6:PLOT 0,n,3:DRAWR 640,0:N 
EXT:FOR n=0 TO 6 STEP 2:PLOT n,0:DRAWR 0,4 
00:PLOT 640-n,0:DRAWR 0,400:NEXT:PLOT 8,40 
:DRAWR 632,0:PLOT 8,72:DRAWR 632,0:PLOT 8, 
120:DRAWR 632,0:PLOT 8,214:DRAWR 632,0 
1240 PLOT 8,280:DRAWR 632,0:ORIGIN 0,0.0,1 
44,342,400:CLG 3:ORIGIN 0,0,472,640,342,40 
0:CLG 3:ORIGIN 0,0,0,640,0,400:FOR n=342 T 
0 356:PLOT 0,n:DRAWR 640,0:NEXT:FOR n = 394 
TO 400:PLOT 0,n:DRAWR 640,0:NEXT:PLOT 150, 
358,1:DRAWR 0,34 

Lisling Tilgung 


[2910] 

[117] 

[948] 

[1373] 

[921] 

[9696] 


[1256] 

[117] 

[483] 

[958] 

[483] 

[117] 

[ 307 ] 
[117] 
[9913] 


[2662 ] 
[1785] 

[ 11389 ] 

[ 10806] 

[ 12242 ] 

[10971] 

[ 12219 ] 

[6544] 

[5770] 

[611] 

[3554] 

[5734] 

[3986] 

[6507] 

[3823] 

[2426] 

[14413] 

[12162 ] 


1250 ' [117] 

1260 ' > Einfuegen vorhandener Werte <-- [1930] 


1270 ' 

1200 PAPER 2:PEN 1:LOCATE 11,5:PRINT name$ 
.•LOCATE 11,6 : PR I NT strasseS : LOCATE 11 , 7 : PR 
INT ort$:LOCATE 9,9:PRINT bank$:LOCATE 9,1 
0:PRINT kontoS:LOCATE 9,11:PRINT blzS:IF u 
rkapoo THEN LOCATE 20,13:PRINT MIDS(STR$( 
urkap),2) 

1290 IF ZOO THEN LOCATE 20,14:PRINT MIDS( 
STR$(z),2) 

1300 IF t<>0 THEN LOCATE 20,15:PRINT MID${ 
STRS(t),2) 

1310 IF tbamonatOO THEN LOCATE 20,16:PRIN 
T MIDS(STR$(tbamonat),2)"."MIDS(STR$(tbaja 
hr) ,2) 

1320 IF tbemOnatOO THEN LOCATE 20,17:PRIN 
T MID$(STRS(tbemonat),2)"."MIDS(STRS(tbeja 
hr) ,2) 

1330 a$(l)="JaehrlIch":a$(2 ) =CHR$(169 ) + "ja 
ehrlich":a$(3)=CHR$(168)+"jaehr1ich":a$(4) 
="monat)1ch":PAPER 0:PEN 1:LOCATE 14,19:PR 
INT a$(1):LOCATE 14,20:PRINT a$(2):LOCATE 
27,19:PRINT a$(3):LOCATE 27,20:PRINT a$(4) 
:PAPER 1:PEN 0 

1340 IF x=l THEN LOCATE 14,19:PRINT aS(l) 

ELSE IF x = 2 THEN LOCATE 14,20:PRINT a$(2) 

ELSE IF x = 3 THEN LOCATE 27,19:PRINT a$(3) 

ELSE LOCATE 27,20:PRINT a$(4) 

1350 PAPER 0:PEN 1:IF y=2 THEN LOCATE 14,2 
2:PRINT”Bildschirm":LOCATE 27,22:PAPER 1:P 
EN 0:PRINT"0rucker":PAPER 0:PEN 1 
1360 ' 

1370 '-> Cursor <- 

1380 ' 

1390 cuS=CHR$(246):x2=2:y2 = 5 

1400 LOCATE x2,y2:PRINT cu$:FOR n = 0 TO war 

te:NEXT 

1410 IF INKEY(0)=0 AND y2>5 THEN LOCATE x2 

,y2:PRINT :y2 = y2-1:GOSUB 1470:GOTO 1400 

' Zeichen " * ” = SHIFT + " \ " 

1420 IF INKEY(2)=0 AND y2<24 THEN LOCATE x 

2 , y2:PRINT :y2 = y2+1:GOSUB 1500:GOT0 1400 

1430 IF y2=24 AND INKEY(9)=0 THEN 2120 
1440 IF y2=24 AND INKEY(1)=0 THEN 1940 
1450 IF INKEY(9)=0 THEN 1560 
1460 GOTO 1410 

1470 IF y2=8 OR y2=12 OR y2=18 OR y2=20 OR 
y2 = 23 THEN y2 = y2-1 
1480 IF y2=21 THEN y2=19 
1490 RETURN 

1500 IF y2 = 8 OR y2=12 OR y2=l-6 OR y2 = 20 OR 
y2=23 THEN y2=y2+l 
1510 IF y2=21 THEN y2=22 
1520 RETURN 
1530 ' 

1540 *-> Eingabe NAME/STR/ORT/BANK/BLZ/U 

RKAP/Z/T/TBS/TBES <- 

1550 ' 

1560 WHILE INKEY$<>"":WEND:LOCATE x2,y2:PR 

INT.:IF y2 = 5 THEN PAPER 2:LOCATE 11,5:PR 

INT STRINGS(29,255):LOCATE 11,5:INPUT"",na 

meS: PAPER 0:PEN l-.GOTO 1400 

1570 IF y2 = 6 THEN PAPER 2:LOCATE 11,6:PRIN 

T STRINGS(29,255):LOCATE 11,6:INPUT"",stra 

sse$:PAPER 0:PEN 1:GOTO 1400 

1580 IF y2= 7 THEN PAPER 2:LOCATE 11,7:PRIN 

T STRINGS(29,255):LOCATE 11 ,7:INPUT"",ortS 

:PAPER 0:PEN 1 :GOTO 1400 

1590 IF y2=9 THEN PAPER 2:LOCATE 9,9:PRINT 
STRINGS(31,255):LOCATE 9,9:INPUT"",bank$: 
PAPER 0:PEN 1:GOTO 1400 

1600 IF y2=10 THEN PAPER 2:LOCATE 9,10:PRI 
NT STRINGS(10,255):LOCATE 9,10:INPUT"",kon 
toS:PAPER 0:PEN 1:GOTO 1400 

1610 IF y2 = 11 THEN PAPER 2:LOCATE 9,11:PRI 
NT STRINGS(10,255):LOCATE 9,11:INPUT"",b1z 
$:PAPER 0:PEN 1:GOTO 1400 

1620 IF y2=13 THEN PAPER 2:LOCATE 20,13:PR 
INT STRINGS(12,255):LOCATE 20,13:INPUT"",u 
rkap:PAPER 0:PEN 1:GOTO 1400 


Listing Tilgung 


[117] 

[ 12958 ; 


[ 2121 ] 

[2300] 

[5079] 

[4937] 

(14905] 

[ 5878 ] 

[6510] 


[117] 

[ 767 ] 
[117] 

[ 365 ] 
[3529] 

[4820] 


[3468] 

[ 1359 ] 

[ 1387 ] 
[643] 

[ 393] 
[3146] 

[ 1454] 

[ 555 ] 
[3358] 

[ 1435] 

[ 555 ] 
[117] 
[3137] 

[117] 

[ 10722] 


[ 7385 ] 
[ 6087 ] 
[6430] 

[9446] 

[6423] 

[7727] 
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1630 IF y2=14 THEN PAPER 2:LOCATE 20,14:PR [7291] 
INT STRING$( 5,255 ):LOCAT E 20,14:INPUT"",2: 

PAPER 0:PEN l:GOTO 1400 

1640 IF y2= 15 THEN PAPER 2:LOCATE 20,15:PR [ 7975 ] 
INT STRING$(5,255):LOCATE 20,15:INPUT“".t: 

PAPER 0:PEN l:GOTO 1400 

1650 IF y2=16 THEN PAPER 2:LOCATE 20,16:PR [6182] 

INT STRINGS(7,255):LOCATE 20,16:INPUT"",tb 

$:GOSUB 2280:PAPER 0:PEN l:GOTO 1400 

1660 IF y2=17 THEN PAPER 2:LOCATE 20,17:PR [7803] 

INT STRING$(7 p 255):LOCATE 20,17:INPUT"",tb 

e$:GOSUB 2370:PAPER 0:PEN l:GOTO 1400 

1670 IF y 2 < >19 THEN 1820 [895] 

1680 ' [ 1171 

1690 '-> Eingabe Zeitraeume <- [ 1505] 

1700 1 | 117] , 

1710 a$(1)="Jaehr11ch":a$(2)=CHR$(169)+ ja [6070] 
ehrlich":a$(3)=CHR$(168) + "jaehr 1 Ich":a$(4) 

="monat1Ich" 

1720 x3=13:y3=19:FOR n=0 TO 10:WHILE INKEY [3175] 
$< >"":WEN0:NEXT 

1730 LOCATE x3,y3:PRINT CHR$(246); [1506] 

1740 IF INKEY(0)=0 AND y3 = 20 THEN LOCATE x [3015] 

3 , y3:PRINT.:y3=19:GOTO 1730 

1750 IF INKEY(2)=0 AND y3=19 THEN LOCATE x [2718] 

3 , y3:PRINTy3 = 20:GOTO 1730 

1760 IF INKEY(8)=0 AND x3=26 THEN LOCATE x [3812] 

3 , y3:PRINT.:x3=13:GOTO 1730 

1770 IF INKEY(1)=0 AND x3=13 THEN LOCATE x [3497] 

3 , y3:PRINT"'":x3 = 2 6 :GOTO 1730 

1780 IF INKEY(9)< >0 THEN 1740 [ 559 ] 

1790 PAPER 0:PEN 1:LOCATE 14,19:PRINT a$(l [8113] 

):LOCATE 14,20:PRINT a$(2):LOCATE 27,19:PR 
INT a$(3):LOCATE 27,20:PRINT a$(4) 

1800 PAPER 1:PEN 0:IF x3=13 AND y3=19 THEN [12639] 
x=l:LOCATE 14,19:PRI NT a$(l) ELSE IF x3=l 
3 AND y3=20 THEN x=2:LOCATE 14,20:PRINT a$ 

(2) ELSE IF x3=26 AND y3=19 THEN x=3:LOCAT 
E 2 7,19:PR I NT a$(3) ELSE x = 4:L0CATE 27,20: 

PRINT a$(4) 

1810 PAPER 0:PEN 1:LOCATE x3,y3:PRINT.:G [2235] 

OTO 1400 

1820 IF y2 < >22 THEN 1920 [894] 

1830 * [117] 

1840 '—> Eingabe DRRUCKER/BILOSCHIRM <- [2090] 

1850 1 [117] 

1860 y3 = 22:a$(1) = "Bl 1dschirm”:a$(2) = "Druck [ 7043] 
er":FOR n=0 TO 20:WHILE INKEY$<>"":WEND:NE 
XT:IF y=1 THEN x3=13 ELSE x3=26 

1870 LOCATE x3,y3:PRINT CHR$(246); [1506] 

1880 IF INKEY(8)=0 AND x3=26 THEN LOCATE x [10423] 

3,y3:PRINT.:LOCATE 27,22:PRINT"Drucker' : 

LOCATE 14,22:PAPER 1:PEN 0:PRINT"Bi1dschir 

m":PAPER 0:PEN 1:x3=13:y=1:GOTO 1870 

1890 IF I NKEY(1)=0 AND x3=13 THEN LOCATE x [8007] 

3,y3:PRINT"'":LOCATE 14,22:PRINT"Bi1dschir 

m":LOCATE 27,22:PAPER 1:PEN 0:PRINT"Drucke 

r" :PAPER 0:PEN 1:x3=26:y = 2:GOTO 1870 

1900 IF INKEY(9)< >0 THEN 1880 [ 625 ] 

1910 LOCATE x3,y3:PRINT-:GOTO 1400 [1803] 

1920 IF y2 < >24 THEN STOP [ 1253] 

1930 * [117] 

1940 1 -> UNTERE MENUELEI5TE <- [ 1839] 

1950 1 [117] 

1960 LOCATE x2,y2:PRINT.:x2=13 [2367] 

1970 LOCATE x2,y2:PRINT CHR$(246):FOR n=0 [4312] 

TO warte:NEXT 

1980 IF INKEY(8)< >0 THEN 2030 [1143] 

1990 LOCATE x2,y2:PRINTIF x2=13 THEN x [3206] 


1990 LOCATE x2,y2 :PRINTIF x2=13 THEN x [3206] 
2 = 2 

2000 IF x2=20 THEN x2=13 [1544] 

2010 IF x2 = 32 THEN x2 = 20 [ 327 ] 

2020 GOTO 1970 [337] 

2030 IF INKEY(1)< >0 THEN 2070 [610] 

2040 LOCATE x2,y2:PRINT.:IF x2=20 THEN x [3110] 

2 = 32 

2050 IF x2=13 THEN x2=20 [1071] 

2060 IF x2=2 THEN x2=13 [1504] 


[ 1071 ] 
[ 1504 ] 


2070 IF x2 = 2 AND INKEY(0)=0 THEN LOCATE 2, [ 2867 ] 
24:PRINT :y2 = 22:GOTO 1400 

2080 IF INKEY(9)< >0 THEN 1970 [ 702 ] 

2090 ' [117] 

2100 ‘-> SAVE <- [ 737 ] 

2110 1 [117] 

2120 IF x2=2 THEN WHILE INKEY$<>”":WEND:SY [8751] 

MBOL 32,0:CALL &BB00:M0DE 2:PAPER 0:PEN 1: 

CAT:INPUT"Dateiname:",dat$:IF dat$="" THEN 
1010 

2130 IF x2 = 2 THEN OPENOUT dat$:PRINT#9,nam [ 13965 ] 
e$:PRINT#9.strasseS:PRINT#9,ort$:PRINT#9,b 
ank$:PRINT#9,kontoS:PR INT#9,blz$:PRINT #9,u 
rkap:PRINT#9,z:PRINT#9,t:PRINT#9,tbamonat: 

PRINT#9,tbajahr:PRI NT#9,tbemonat:PRINT#9,t 
bej ahr:PR I NT#9,x:PRINT #9,y:CLOSEOUT:GOTO 1 
010 

2140 ‘ [117] 

2150 ‘-> BERRECHNEN <- [ 563 ] 

2160 • [117] 

2170 IF x2=20 THEN tbmonat=tbamonat:tbjahr [3396] 

=tbajahr:GOTO 140 

2180 1 [117] 

2190 1 -> ENDE <- [664] 

2200 1 [117] 

2210 IF x2=32 THEN 2480 [558] 

2220 ‘ [117] 

2230 ’-> LOAD <- [805 ] 

2240 ‘ [117] 

2250 IF x2=13 THEN WHILE INKEY$<>"":WEND:S [ 10398] 

YMBOL 32,0:CALL &BBOO:MODE 2:PAPER 0:PEN 1 
:CAT:INPUT"Date1namedat$:IF dat$="" THE 
N 1010 

2260 IF x2=13 THEN OPENIN dat$:INPUT#9,nam [19363] 
e$:INPUT#9,strasseS:INPUT#9,ort$:INPUT#9,b 
ankS:INPUT#9,kontoS:INPUT#9,blz$:INPUT#9,u 
rkap:INPUT#9,z:INPUT#9,t:INPUT#9,tbamonat: 

INPUT#9.tbajahr:INPUT#9,tbemonat:INPUT#9,t 
bejahr:INPUT#9,x:INPUT#9,y:CLOSEIN:GOTO 10 
10 

2270 ’ [117] 

2280 *-> TILGUNGSANFANG berrechnen/pruef [2905 ] 

en <- 

2290 ' [117] 

2300 IF LEFT$(tb$,1)="."OR tb$=""OR INSTR( [4781] 

tbS,".")=0 THEN tbamonat=0:GOTO 2340 
2310 tbamonat=VAL(LEFT$(tb$,INSTR(tbS,".") [3707] 
-1) ) 

2320 tbajahr=VAL(MID$(tb$,INSTRCtb$,".")+l [3845] 

)) 

2330 IF tbajahr <100 THEN tbajahr = tbajahr + 1 [2422 ] 
900 

2340 IF tbamonat<1 OR tbamonat>12 OR tbaja [3789] 
hr<1901 OR tbaj ahr >2100 THEN 1650 

2350 RETURN [555] 

2360 1 [117] 

2370 ’-> TILGUNGSENDE berrechnen/pruefen [1615] 

2380 ’ [117] 

2390 IF LEFT$(tbe$,1)="."OR tbe$=""OR INST [3793] 

R(tbe$,".")=0 THEN tbemonat=0:GOTO 2430 
2400 tbemonat=VAL(LEFT$(tbeS,INSTR(tbeS,". [2782] 

") -1) ) 

2410 tbejahr=VAL(MIDS(tbe$,INSTR(tbe$,".") [2612] 

+ 1) ) 

2420 IF tbejahr<100 THEN tbejahr=tbejahr+1 [1984] 

900 

2430 IF tbemonat<l OR tbemonat>12 OR tbeja [3838] 
h r <19 50 OR tbejahr>2100 THEN 1660 

2440 RETURN [555] 

2450 ' [117] 

2460 ’-> Programm Ende <- [1997] 

2470 ‘ [117] 

2480 MODE 2:INK 0,0:INK 1,26:WHILE INKEYS < [6249 ] 

>"";WEND:SYMBOL AFTER 32:CALL &BB00 

2490 END ['HO] 


Listing Tilgung 


Listing Tilgung 
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Computer 


r7??n aa ja ^ j_j-j- 


mm 


Vertragshanclier_ 


TmzelhändlerpRäsentiefj 



— m 



Cass. 

Disk. 

Paonama 

31.90 


Spiele für CPC 

Fists'nThrottles 

Flight Ace 

Football Manager 2 

36.90 

37.90 

28.90 

39.90 

56.90 

43.90 

Peter Pan 

Pink Panther 

Piiates 6128 

28.90 

44.90 

43.90 

57.90 


Cass. 

Disk. 

Forgotten Worlds 

26.90 

41.90 

R-Type 

29.90 

44.90 


GalacticConqueror 

26.90 

41.90 

Raffles 

28.90 

39.90 

1943 

26.90 

41.90 

Gary Linekers Hotshots 

29.90 

45.90 

Roadblasters 

26.90 

43.90 

4x40ffRoadRacing 

29.90 

45.90 

GaryLinekers 



Robocop 

31.90 

44.90 

Afterbumer 

29.90 

44.90 

Super Skills 

29.90 

45.90 

Run The Gauntlet 

31.90 

47.90 

Arcade Force Four 


59.90 

GaryLinekers 



Savage 

28.90 

43.90 

ArcadeMusde 

39.90 

57.90 

Superstar Soccer 

28.90 

43.90 

Six Pack 3 

28.90 

42.90 

Arcade Power 


49.90 

GeeBeeAirRalley 

28.90 

43.90 

Space Ace 

39.90 

43.90 

Arkanoid2 

28.90 

43.90 

Giants Compilation 

37.90 

39.90 

Space Harrier 

21.90 

35.90 

Artura 

31.90 

44.90 

Golden Path 


42.90 

Superman 

29.90 


Asterix im 



GuildofThieves6128 


57.90 

Supertrux 

28.90 

39.90 

Morgenland F. 6128 


39.90 

Hate 

29.90 

44.90 

Supreme Challenge 

39.90 

49.90 

Batman 

31.90 

44.90 

Hereos of the Lance 

26.90 

41.90 

Sweevos World 


42.90 

Blasteroids 

29.90 

45.90 

Impossible Mission 2 

26.90 

41.90 

Technocop 

29.90 

45.90 

BuggyBoy 

28.90 

41.90 

International Karate Plus 

39.90 

Ten Great Games 3 

37.90 

44.90 

California Games 

26.90 

37.90 

Jagd auf Roter Oktober 

41.90 

54.90 

Ten Mega Games 

39.90 

44.90 

Chicago 30 

26.90 

41.90 

Karate Ace 

39.90 

44.90 

The Real Ghostbusters 

29.90 

45.90 

CrazyCais 


42.90 

Lancelot 


57.90 

Thunderblade 

26.90 

41.90 

CrazyCars2 

26.90 

41.90 

Last Duell 

29.90 

45.90 

Tiger Road 


41.90 

Cybernoid 2 

29.90 

45.90 

Last Ninja 2 

39.90 

43.90 

Times of Lore 

29.90 

45.90 

D.T.Olympic Challenge 

31.90 

47.90 

LazerTag 

26.90 

41.90 

Titan 

26.90 

41.90 

Das Reich 


45.90 

Leben und sterben 



Top Ten Collection 

29.90 

46.90 

Desolator 

26.90 

41.90 

lassen 

29.90 

39.90 

Trivial-Persuit 2 

44.90 

53.90 

Dogfrght 2187 


39.90 

LedStorm 

29.90 

45.90 

Typhoon 

31.90 

44.90 

Dragon Ninja 

29.90 

44.90 

MickyMouse 

28.90 

43.90 

Vindicator 

26.90 

41.90 

Echelon 

39.90 

43.90 

Microprose Soccer 

43.90 

59.90 

War in Middle Earth 

29.90 

45.90 

Emlyn Hughes Soccer 

26.90 

41.90 

Motor Massacre 

31.90 

47.90 

WecLeMans 

31.90 

47.90 

Empire Strikes Back 

26.90 

41.90 

Nebulus 

28.90 


Winter Edition 

26.90 

41.90 

Epyx 



Netherworld 

29.90 

45.90 

Wir führen Software für Amiga, 

(TheWorldsGreatest) 

29.90 

49.90 

Night Raider 

29.90 

44.90 

CPC, Atari ST und IBM-Kompati- 

Expansion Kit für 



OutRun 

26.90 

41.90 

ble. Einige tausend Programme 

Football Manager 2 

22.90 

29.90 

Pacland 

29.90 

45.90 

sind ständig am Lager! 



Giants 

California Games, Gauntlet n, Out 
Run, Rolling Thunder, 720" 

Kassette 37.90 Diskette 39.90 


EPIX 

World Games, Winter Games. 
Impossible Mission, Supercycle 
Kassette 29.90 Diskette 49.90 


Ten Mega Games 

North Star, Cybernoid, Deflector, 
Trailblazer, Bloodbrother, MASK 
II, Tour de Force. Hercules, 
Masters of the Universe, Blood 
Valley 

Kassette 39.90 Diskette 44.90 


Game, Set & Match II 

Super Hang on, Davis' Snooker, 
Basket Master, Superball, Track & 
Field, Matchday II, Championchip 
Sprint 

Kassette 39.90 Diskette 58.90 


Par 3 

Leaderboard, Leaderboard Tour- 
nement, Worldclass Leaderboard 

Kassette 39.90 Diskette 49.90 


Karate ACE 

Way of the Tiger, Samurai Trilo¬ 
gie, Bruce Lee, Kung Fu Master, 
Exploding Fist, Avenger, Uchi 
Mata 

Kassette 39.90 Diskette 44.90 


Ten Great Games III 

10th Frame. Firelord, Ranarama, 
Fighter Pilot, Leaderboard, Iridis 
Alpha, Eagles, Rebounder. Alley 
Cat. Last Mission 
Kassette 37.90 Diskette 44.90 


Six-Pack 3 

Ghost'n Goblins, Living Day- 
lights, Escape from Singes Castle 
(nicht auf Disc), Dragons Lair, 
Paperboy, Enduro Racer 

Kassette28.90 Diskette42.90 


Flight ACE 

Advanced Tacticai Fighter, 
Tomahawk, Strike Force Harrier, 
Speedfire 40, ACE, Airtraffic, 
Combat 

Kassette 46.90 Diskette 56.90 


Top Ten Collection 

Saboteur I, Saboteur II, Sygma UI, 
Critical Mass, Airwolf, Deep 
Strike, Combat Lynx, Turbo 
Esprit, Thanatos Bombjack II 
Kassette 29.90 Diskette 46.90 


Space ACE 

Xevius, Venon Strikes Back, 
Cybernoid. North Star, Zynaps, 
Trantor, Exolqp 

Kassette 37.90 Diskette 57.90 


Supreme Challenge 

Elite, Sentinel, Starglider, ACE II, 
Tetris 

Kassette37.90 Diskette49.90 


Die Spiele sind zu einem großen Teil mit deutscher Anleitung, 
teilweise komplett in deutsch geschrieben. Einzelheiten 
erfragen Sie bitte telefonisch. 


HARDWARE 


KUNSTLEDERHAUBEN 


CPC 464/664 . 19.80 

CPC 6128 . 19.80 

Monitor GT 64/65 . 27.90 

Monitor CTM 640/644 . 29.95 

EuroPC Tastatur . 21.80 

EuroPC Monitor MM 12 . 34.90 

EuroPC Monitor CM 14 . 37.90 

EuroPC Tastatur u. MM 12 .49.80 

EuroPC Tastatur u. CM 14 . 55.80 

PC 1512/1640 Tastatur . 19.80 

Schneider PC 2640 Tastatur . 19.80 

no name MF Tastatur . 19.80 

PC 1512/1640 eintlg.komplett .49.80 

PC 1512/1640 zweitlg. Set . 59.80 

DMP 2000/2160/3000/3160 . 19.80 

StarNL/ND/NR 10 . 24.90 

Star LC 10 . 24.90 


AMSTRAD 


CPC 464 u. Grünmonitor GT 65 398.00 

CPC 464 u. Farbmonitor CTM 644 698.00 

CPC 6128 u. Grünmonitor GT 65 798.00 

CPC 6128 u. Farbmonitor CTM 644 1098.00 


Star LC 10 


So finden Sie unser Ladengeschäft: 

A42 (Emscherschnellweg) Abfahrt 
Castrop-Rauxel, ß 235 Richtung Wit¬ 
ten. 2. Ampel rechts, 1. Ampel links, 
dann 2, Ampel links Über 60 Park¬ 
plätze stehen Ihnen am Hause 
kostenlos zur Verfügung. 


CPC-ZUBEHÖR 


Kabel CPC/an Fernseher m. Scart . 19.80 

Bildschirmfilter GT 64/65 . 29.00 

Bildschirmfilter CTM 640/644 . 39.95 

Druckerkabel 464/664 . 29.80 

Druckerkabel 6128 . 29.80 

Monitorverlängerung CPC 464 . 27.90 

Monitorverlängerung CPC 664/6128 . 34.90 
Kabel Computer/Recorder . 19.80 


Telefonische Bestellung (Tag + Nacht): 

(0 23 05) 3770 


DISKETTEN 


Maxell 3", lOStck .69.00 


Ladengeschäftszeiten: 
Montag—Freitag 9.00 - 13.00 Uhr 
15.00- 18.30 Uhr 
Samstag 9.00 - 14.00 Uhr 
Langer Samstag 9.00 - 18.00 Uhr 

Versand per Nachnahme zuzügl. Versandkosten. Oder Vorkasse 
auf Psch.-Kto. Nr. 69422-460 PschA Dortmund zuzügl. 5,- DM Ver¬ 
sandkosten. 24-Stunden-Schnellversand per UPS. 

Ausland nur per Vorkasse auf Psch.-Kto. zuzügl. 10,- DM Versand¬ 
kosten. Bitte bei allen Bestellungen Computertyp angeben! 

Bitte fordern Sie unsere Software-Liste 
gegen frankierten Rückumschlag an. 


Wir haben eine große 
Auswahl an PC-Zubehör. 
Fragen Sie bitte nach. 


O Senden Sie mir bitte Ihren Katalog 
(2, DM in Briefmarken liegen bei) 
Hiermit bestelle ich 

O per Nachnahme O per Vorkasse 
O Incl. kostenlosem Katalog 


Vorname, Name 


Straße, Hausnummer 


PLZ, Ort 


BESTELLSCHEIN , 08 e 9 


Anz 

Artikel 

Preis 




















Irnumef und Prejsandacungen Vorbehalten 


Computertyp 


Datum, Unterschrift 









































r~ Assembler 



Die Assemblerecke 


Heute auf der Speisekarte: 

Gut optimierte Quadratwurzeln 

Bereits in der letzten Folge der Assemblerecke wurde die interne Struktur 
der REAL-Zahlen im CPC erörtert und gezeigt, wie man in Assembler dar¬ 
auf zugreift. Allerdings schrecken selbst hartgesottene Profis vor der Auf¬ 
gabe zurück, einem auf Ganzzahlen spezialisierten Mikroprozessor die äu¬ 
ßerst komplizierte Fließkomma-Arithmetik beizubringen. Deshalb erfahren 
Sie in dieser Folge, wie man sich des »Eingemachten’ bedient und die Fließ¬ 
kommaroutinen im CPC-ROM aufruft. Weiterhin werden wir eine dieser 
Routinen durch ein wesentlich schnelleres Eigenprodukt ersetzen und die 
Berechnung von Quadratwurzeln enorm beschleunigen. 


Die Routinen für die Fließkomma- 
Arithmetik befinden sich im unteren 
der beiden CPC-ROMs (Adreßbereich 
&0000 - &3FFF). Wenn der Basic-In- 
terpreter gerade 'arbeitet’, ist in die¬ 
sem Bereich allerdings das RAM mit 
dem BASIC-Programm eingeblendet. 
Aus diesem Grund erfolgt der Aufruf 
der Fließkomma-Arithmetik über spe¬ 
zielle Sprungvektoren, die im Prinzip 
wie JP-Befehle (JP wie Jump) wirken, 
aber zusätzlich noch die Einblendung 
des unteren ROMs bewirken. Auch die 
Betriebssystem-Aufrufe benutzen die¬ 
sen Umschaltmechanismus, der zusätz¬ 
lich noch den Vorteil hat, daß die 'ge¬ 
normten' Einsprungstellen trotz unter¬ 


schiedlicher ROM-Versionen immer 
an der gleichen Stelle liegen können. 

Drei Brüder mit 
Verständigungsschwierigkeiten 

Leider hat Amstrad die Fließkomma- 
Routinen nicht zu einem offiziell doku¬ 
mentierten Teil des Betriebssystems er¬ 
klärt, was zur Folge hat, daß sich die 
Sprungvektoren bei den drei CPC-Brü- 
dem nicht an den gleichen Speicher¬ 
adressen befinden. Assemblerpro¬ 
gramme für den CPC 464, die von der 
eingebauten Arithmetik Gebrauch ma¬ 
chen, laufen also z.B. nicht auf dem 
CPC 6128, und umgekehrt. Hier kann 


man jedoch Abhilfe schaffen, indem 
man das Programm mit drei Tabellen 
versieht, die alle benötigten Fließkom¬ 
ma-Aufrufadressen für den CPC 464, 
664 und 6128 in Form von JP-Befehlen 
enthalten. Nach dem Programmstart 
sollte als erstes die Rechnerversion ab¬ 
gefragt und dann die richtige Tabelle in 
eine Sprungleiste kopiert werden, über 
die sich dann alle Arithmetik-CALLs 
einheitlich abwickeln lassen. Mit wel¬ 
cher Rechnerversion es das Programm 
zu tun hat, läßt sich anhand bestimmter 
Speicherstellen feststellen. Zum Bei¬ 
spiel steht beim CPC 464 an der Adres¬ 
se &BD14 der Wert &DC, beim CPC 
664 &D7 und beim CPC 6128 &ED. 
Immerhin sind aber die Aufrufkonven¬ 
tionen der Arithmetik-Routinen (Para¬ 
meterübergabe, Fehlerbehandlung 
usw.) bei allen CPCs gleich, so daß 
sich in dieser Hinsicht keine Probleme 
ergeben. In der Tabelle finden Sie eine 
Übersicht aller wichtigen Fließkom- 
ma-CALLs mitsamt ihren Ein- und 
Aussprungbedingungen. Hierbei fallt 
auf, daß als Parameter nicht die Fließ¬ 
kommazahlen selbst, sondern deren 
Speicheradressen in den Z80-Registern 
HL und DE übergeben werden. Die 
Registerbezeichnungen stehen deshalb 
in der Tabelle gemäß der üblichen As¬ 
semblernotation in Klammern. Die An¬ 
gabe ’(HL) = Funktionsargument’ be¬ 
deutet also, daß sich die Adresse der 
Fließkommazahl im HL-Registerpaar 
befindet. Die Zahl höchstpersönlich 
liegt dagegen irgendwo als 5 Byte lan¬ 
ges Gebilde im Speicher herum! Die 
Fließkomma-Operationen und Funk¬ 
tionen legen das Ergebnis grundsätz¬ 
lich an der Adresse ab, die beim Ein¬ 
sprung im HL-Registerpaar steht. 
Auch beim Aussprung findet man die¬ 
sen 'Zeiger' auf das Resultat unverän¬ 
dert vor. Alle anderen Z80-Register 
werden jedoch gnadenlos verändert 
(auch IX und IY!), so daß man die Auf¬ 
rufe gegebenenfalls mit ausreichend 
vielen PUSHs und POPs einrahmen 
muß, um wichtige Werte zu retten. 
Hier nun ein einfaches Beispiel: Durch 
CALL adr,@varl,@var2 werden von 
BASIC aus die Adressen zweier Fließ¬ 
komma-Variablen übergeben und de¬ 
ren Inhalt durch ein kleines Maschi¬ 
nenprogramm addiert. Das Ergebnis 
steht danach in varl: 

10 'LD L, (IX+0) ; HL = Adresse varl 
20 1 LD H, (IX+l) 

30 ’ LD E, (IX+2) ; DE = Adresse var2 
40 1 LD D, (IX+3) 

50 1 CALL &BD58 ;Addition CPC 464 

60 'RET ;-> Basic 

Hier noch einige Bemerkungen zu den 
Umwandlungsroutinen Real <-> In- 
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teger im dritten Abschnitt der Tabelle: 
Diese CALLs sind z.B. sehr nützlich, 
wenn man Grafikkoordinaten mit 
Fließkomma-Arithmetik berechnet hat 
und diese nun einer PLOT-Routine 
übergeben will, die aber nur Ganzzah¬ 
len versteht. Die Über- bzw. Rückgabe 
der Integerwerte ist hier etwas unge¬ 
wöhnlich organisiert: Das Vorzeichen 
befindet sich abgespalten im Bit 7 des 
Akkus, die Zahl selbst steht als positi¬ 
ver Wert im HL-Registerpaar. Es ist 
also nach dem Aufruf der Real-Inte- 
ger-Umwandlung eventuell notwen¬ 
dig, das Vorzeichen im A-Register zu 
testen und bei negativem Resultat die 
Zahl in HL durch Zweierkomplement¬ 
bildung in eine echte vorzeichenbehaf¬ 
tete Ganzzahl umzuwandeln, bevor 
man andere Routinen darauf losläßt. 

Eine heimliche Umleitung 

Und nun zu unserem Beispiellisting: 
Der Aufruf der Fließkomma-Arithme¬ 
tik über Sprungvektoren bietet noch 
eine weitere interessante Perspektive. 
Es ist ja ohne weiteres möglich, einen 
Vektor durch einen Sprungbefehl auf 
eine eigene Routine zu ersetzen und sie 
damit dem CPC-BASIC (und auch al¬ 
len anderen Programmen, die den Ein¬ 
sprung benutzen) unterzuschieben. Na¬ 
türlich muß diese Umleitung 'heim¬ 
lich’ geschehen; nach außen hin sollte 
sich die neue Routine genau wie die 
alte verhalten. Dies gilt insbesondere 
auch für den Status der Prozessorflags 
nach Auftreten eines Fehlers (siehe Ta¬ 
belle), damit der Interpreter eine zu¬ 
treffende Meldung auf dem Bildschirm 
erscheinen läßt: Wenn alles in Ordnung 
ist, erfolgt der Rücksprung mit gesetz¬ 
tem Carry-Flag. Andernfalls ist das 
Carry gelöscht; das Zero- und Signum- 
Flag (Vorzeichen-Flag) geben dann 
über die Art des Fehlers Auskunft. Die 
Quadratwurzelberechnung (BASIC- 
Funktion SQR, SQuareRoot) des CPC 
ist nun nicht unbedingt das Gelbe vom 
Ei. Sie wird im ROM sehr speicher¬ 
platzsparend über die Routine für das 
Potenzieren abgewickelt, da sich der 
Ausdruck |/x auch als x'^ schreiben 
läßt. Die Rechenzeit reduziert sich je¬ 
doch drastisch, wenn man eine verbes¬ 
serte Routine installiert, die eine spe¬ 
zialisierte Iterationsformel benutzt: 

x n+ . =(x/x n + x n )/2 

x ist der Wert, aus dem die Wurzel ge¬ 
zogen werden soll. Der erste für xn 
eingesetzte Wert (also x , ) kann im 
Prinzip eine beliebige Zahl größer 0 
sein; die Iteration führt allerdings 


schneller zum Ziel, wenn x, bereits 
eine gute Näherung des Endergebnis¬ 
ses darstellt. Hier handelt es sich quasi 
um eine mathematische Rückkop¬ 
plung: Das Ergebnis x n+1 wird im 
nächsten Durchgang für x n eingesetzt 
und der Rechenvorgang solange wie¬ 
derholt, bis das Ergebnis stabil bleibt, 
sich also im Rahmen der Rechengenau¬ 
igkeit nicht mehr ändert. Die folgende 
Basic-Schleife zeigt die programm¬ 
technische Realisierung, wobei als er¬ 
ste sehr grobe Näherung für das Ender¬ 
gebnis der Ausgangswert x herangezo¬ 
gen wird. 

10 INPUT “Zahl: “,x 
20 xnplusl = x:xn = 0 
30 WHILE xnplusl < > xn 
40 xn=xnplusl:xnplusl=(x/xn+xn)/2 
50 WEND 

60 PRINT “Wurzel :;xn: GOTO 10 

Durch Experimentieren kann man her¬ 
ausfinden, daß die Wurzel bereits nach 
nur 4 Schleifendurchläufen feststeht, 
wenn der Iterations-Startwert x , = 1,5 
gewählt wird und der Wert x, dessen 
Wurzel berechnet werden soll, zwi¬ 
schen 1 und 4 liegt. Diese Zahlen ha¬ 
ben in der internen Fließkomma-Dar¬ 
stellung einen Zweierexponenten von 0 
oder 1 (ohne &81-Offset). 


Optimal, sprach der Aal... 

Die ganze Angelegenheit läßt sich in 
Assembler hervorragend optimieren, 
wenn man neben dieser Beobachtung 
noch zwei Wurzel-Rechengesetze her¬ 
anzieht: — Aus einem Produkt kann 
man die Wurzel ziehen, indem man 
sich die Faktoren einzeln vomimmt 
und dann die Ergebnisse multipliziert: 

SQR(a*b) = SQR(a)*SQR(b). 

— Die Wurzel aus einem Potenzaus¬ 
druck erhält man, indem man den Ex¬ 
ponenten halbiert: 

SQR(atb) = at(b/2). 

Dadurch wird folgendes Verfahren 
möglich: Der Wert x wird in zwei Fak¬ 
toren zerlegt, von denen der eine mit 
einem Zweierexponenten von 0 oder 1 
im optimalen Bereich liegt und ein Mi¬ 
nimum an Iterationen erfordert. Der 
andere Faktor muß eine Zweierpotenz 
mit geradzahligem Exponenten sein, 
den man nur zu halbieren braucht, um 
die Wurzel zu ziehen. Angenommen, 
die Fließkommazahl x hat den Zweier- 
Exponenten e, so läßt sich die Wurzel¬ 
berechnung mit folgenden Schritten 
realisieren: — Teste, ob x negativ ist. 


Auf einen Blick, die ge¬ 
samten Einsprung¬ 
adressen der CPCs 



Einsprungadressen der Fließkomaaroutinen für den CPC 

464 664 6128 

Addition (HL) - (HL) + (DE) . 

. BD58 

BD79 

BD7C 


Subtraktion (HL) = (DE) - (HL) ... 

. BD5E 

BD7F 

BD82 


Multiplikation (HL) - (HL) * (DE) 

. BD61 

BD82 

BD85 


Division (HL) = (HL) / (DE) . 

. BD64 

BD85 

BD88 


Potenzierung (HL) - (HL) * (DE) . 

. BD7C 

BD9D 

BDA0 


IN: (HL) = 1. Realzahl 

OUT: 

(HL) - 

Ergebnis 


(DE) - 2. Realzahl 





Pii fr H toi 





LOG-Funktion (HL) = LOG((HL)) - 

. BD7F 

BDA0 

BDA3 


LOGIO-Funktion (HL) - LOG10((HL)> 

. BD82 

BDA3 

BDA6 


EXP-Funktion (HL) - EXP((HL)) ... 

. BD8 5 

BDA6 

BDA9 


SQR-Funktion (HL) - SQR((HL)) .. 

. BD79 

BD9A 

BD9D 


SIN-Funktion (HL) - SIN(IHLI) .. 

. BD88 

BDA9 

BDAC 


COS-Funktion (HL) -COS ((HD) ... 

. BD8B 

BDAC 

BDAF 


TAN-Funktion (HL) -TAN((HL)) ... 

. BD8E 

BDAF 

BDB2 


ATN-Funktion (HL) - ATN((HL)) ... 

. BD91 

BDB2 

BDB5 


RND-Funktion (HL) » RND . 

. 8D9D 

BD7C 

BD7F 


IN: (HL) = Funktionsargument\ 

OUT: 

(HL) - 

Ergebnis 


Rückgabeadresse 





Umwandlung Integer -> Real . 

. BD40 

BD61 

BD64 


IN: HL - vorzeichenlose 

OUT: 

(HL) = 

Realzahl 


Integerzahl 





A = Vorzeichen in Bit 7 





DE - Zieladresse für Realzahl 





Umwandlung Real -> Integer . 

. BD46 

BD67 

BD6A 



OUT: 

HL » vorzeichcnlose 



Integerzahl 




A = Vorzeichen in 

Bit 7 

Vergleich von (HL) und (DE) . 

. BD6A 

BD8B 

BD8E 



OUT: 

Z-l 

wenn (HL) 

- (DE) 

(DB) = 2. Realzahl 


Z-0, C=0 wenn (HL) 

> (DE) 



Z-0, C-l wenn (HL) 

< (DE) 

Einstellung DEG/RAD . 

. BD7 3 

BD94 

BD97 


IN: A = 0 für RAD. 





A - SFF für DEC 





Startwert für Zufallsgenerator .. 

. BD9A 

BDBB 

BDBE 


IN: (HL) - Startwert 










C=1 wenn Ergebnis ok C-0, 

Z-l wenn Division durch 0 


C=0, 

Z=0. S—1 wenn 

Overflow 


C-0, 

Z-0, S=0 wenn 

Improper Argument 

1 _ :- 
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Falls ja, breche mit Fehler ab. — Teste, 
ob e und damit auch x = 0 ist (siehe 
letzte Folge). Wenn ja, springe sofort 
zurück, da |/0 = 0. 

— Speichere e ab und ersetze den Ex¬ 
ponenten durch z MOD 2, wonach er 
im Bereich 0..1 liegt. 

— Berechne die Wurzel mit dem Start- 
wert xl = 1,75 und 4 Iterationen. 

— Berechne e \ 2 (Division ohne Rest) 
und addiere das Ergebnis zum Zweier¬ 
exponenten der Wurzel, was einer 
Multiplikation der beiden Teilresultate 
entspricht. Das ist fast schon höhere 
Mathematik, beschleunigt aber im 
Endeffekt die Wurzelberechnungen 
des CPC um den Faktor 3! Nachdem 
der kurze Initialisierungsteil (Zeile 
270-330, Aufruf mit CALL &A500) 
den Vektor für die alte SQR-Funktion 
mit einem Sprungbefehl auf die neue 
Routine überschrieben hat, sollten alle 
Basicprogramme ein Stück schneller 
ablaufen, die sich lange mit Wurzelbe¬ 


rechnungen aufhalten (z.B. beim 
Zeichnen von Kreisen). 

Einige Rücksprünge 

Das Listing ist sehr instruktiv, da es na¬ 
hezu alle Fließkomma-Manipulationen 
demonstriert, die in Assembler sinn¬ 
voll und möglich sind. Hier die weite¬ 
ren Stationen in Kürze: In den Zeilen 
350-400 erfolgt ein sofortiger Rück¬ 
sprung, falls versucht wird, die Wurzel 
aus einer negativen Zahl zu ermitteln. 
Die Prozessorflags werden dabei so 
eingestellt, daß der Basic-Interpreter 
Tmproper Argument’ meldet. Ein 
Rücksprung ohne Fehler ist dagegen 
fällig, wenn der Exponent und damit 
die gesamte Zahl = 0 ist (Zeile 
420-450). Danach wird der Exponent 
in Zeile 470-510 wie beschrieben zer¬ 
legt, um eine Iteration in nur 4 Durch¬ 
gängen zu ermöglichen. Die Iterations¬ 
schleife (Zeile 610-780) benutzt die 
Divisions- und Additionsroutine aus 


dem CPC-ROM. Viel Zeit spart die 
trickreiche Division durch 2 in Zeile 
720, die schon in der letzten Folge zur 
Sprache kam. Zum Abschluß wird das 
Ergebnis in den Zeilen 800-930 an die 
richtige Adresse kopiert, die Wurzel 
aus dem abgespaltenen geradzahligen 
Exponentenanteil gezogen (Zeile 880) 
und mit dem Exponenten des Ergebnis¬ 
ses verrechnet. Am Ende des Listings 
definiert eine DB-Direktive die 5 Bytes 
für den Iterations-Startwert 1,5. Zu¬ 
sätzlich werden mit der DS-Anweisung 
(Define Space) zwei Speicherbereiche 
von jeweils 5 Bytes Länge angelegt 
(REAL1 und REAL2), die Zwischen¬ 
ergebnisse aufnehmen. Damit haben 
wir das Thema ’Fließkommazahlen in 
Assembler' von allen Seiten gründlich 
beleuchtet, und nun heißt es ’Bahn frei 
für eigene Erfindungen’. Schreiben 
Sie, wenn Sie weitere Möglichkeiten 
finden, dem CPC im wahrsten Sinne 
des Wortes auf die Sprünge zu helfen! 

(Matthias Uphoff/cd) 


100 

■;***** schnelle Fliesskomma- 


540 

'LD HL,STARTW 

;Iter.-Startwert 1,5 

110 

•;***«* Wurzelberechnung 


550 

'LD DE.REALl 

;nach REAL1 kopieren 

120 

*;In1t1a11sierung mit CALL &A500 

i 


560 

* LD BC,5 

;5 Bytes 

130 


570 

' LDIR 

; uebertragen 

140 

■ORG &A500 


580 

* POP HL 

; Argumentadr. holen 

150 



590 

'LD B,4 

; 4 Iterationen 

160 

'FADD EQU &BD58 ;(hl)=(hl)+(de) 


600 



170 

* ;fuer CPC 464 


610 

'ITER PUSH BC 

-.Zaehler retten 

180 

* ;&BD79 fuer CPC 664 


620 

'PUSH HL 

; Argumentadr. retten 

190 

‘ ;&BD7C fuer CPC 6128 


630 

'LD DE,REAL2 

[Argument nach REAL2 

200 

’FDIV EQU &B064 ; ( h 1 ) = ( h 1 ) / ( d e ) 


640 

'LD BC,5 

;kopie ren 

210 

‘ ;&BD85 fuer CPC 664 


650 

' LDIR 


220 

1 ;&BD88 fuer CPC 6128 


660 

'LD HL,REAL2 

;REAL2/REAL1 berechnen 

230 

'FSQU EQU &BD79 ; (hl )=SQR( (hl ) ) 


670 

'LD DE.REALl 


240 

1 ;&BD9A fuer CPC 664 


680 

'CALL FDIV 


250 

* ;&BD9D fuer CPC 6128 


690 

'LD DE,REAL1 

;REAL2+REAL1 berechnen 

260 



700 

'CALL FADD 


270 

INIT LD HL,NEWVEK ;Adr. Sprungbef. 


710 

'LD IX.REAL2 

; Ad r. REAL2 nach IX 

280 

‘LD DE.FSQU ;Adresse SQR-Vektor 


720 

'DEC (IX+4) 

;REAL2 / 2 berechnen 

290 

'LD BC,3 ;3 Bytes 


730 

'LD DE.REALl 

;REAL2 nach REAL1 

300 

’LDIR ;uebertragen 


740 

'LD BC,5 

;kopieren 

310 

'RET ;-> Basic 


750 

' LDIR 


320 

l 


760 

'POP HL 

[Argumentadr. holen 

330 

’NEWVEK JP NEWSQR ;neuer Sprungbef. 


770 

'POP BC 

[Zaehler holen 

340 

• 


780 

'DJNZ ITER 

;-> naechste Iteration 

350 

'NEWSQR PUSH HL ;Adr. Funktions- 


790 

' 


360 

'POP IX jargument nach IX 


800 

'POP AF 

[Exp. des Arg. holen 

370 

'LD A,(IX+3) ;hoechstwertiges Byte 


810 

* PUSH HL 

[Argumentadr. retten 

380 

'CPL ;Vorz. Invertieren 


820 

'EX DE,HL 


390 

'OR 1 ;Flags setzen (z,c=0) 


830 

'LD HL.REALl 

[Ergebnis von REAL 1 

400 

'RET P ;Fehler wenn positiv 


840 

'LD BC,5 

;zur Adresse in hl 

410 



850 

' LDIR 

[uebertragen 

420 

'LD A, (IX + 4 ) Exponenten holen 


860 

'EX DE,HL 


430 

‘OR A ;und testen 


870 

'DEC HL 

;Adr. Ergebnis-Exp. 

440 

'SCF ; c=l, alles ok 


880 

' SRA A 

[Exp. des Arg. \ 2 

450 

'RET Z ;zurueck wenn Argum.=0 


890 

‘ADD A,(HL) 

;zum Exponenten des 

460 



900 

* LD (HL) ,A 

[Ergebnisses addieren 

470 

'SUB &81 [Offset subtrahieren 


910 

'POP HL 

[Arg./Ergebnisadresse 

480 

'PUSH AF Exponent merken 


920 

' SCF 

;c=l, alles ok 

490 

'AND 1 ;Exponent MOD 2 


930 

' RET 

;-> fertig 

500 

'ADD A.&81 ;Offset addieren 


940 

* 


510 

'LD (IX + 4).A ;und abspeichern 


950 

'STARTW DB 0, 

0,0,&40,&81 ;= 1,5 

520 



960 

'REAL1 DS 5 

[Zwischenspeicher 

530 

'PUSH HL ;Argumentadr. retten 


970 

'REAL2 DS 5 

[Zwischenspeicher 
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Textverarbeitung 


ConText CPC 

So macht Textverarbeitung wirklich Spaß! 

Bisher unerreicht für alle CPCs mit vielen Funktionen 
aus dem PC-Standard: Blockformatieren, Zeilen 
kopieren, Drucken im Hintergrund, mehrspaltiges 
Layout, Großschrift und Unterstreichen am Bildschirm, 
usw. Einfache Bedienung über Statuszeile und doppelt 
belegte Tastenfunktionen, anpaßbarer Druckertreiber, 
eingebautem Taschenrechner, Kalender und ausführli¬ 
cher Bedienungsanleitung. 

Autor: Matthias Uphoff 


Kassette 

Diskette 


DM 49,- 
DM 59,- 


Anwendungen 


Copyshop 

Das universelle Hardcopy-Programm 
für alle CPCs 

Alle Formate auf allen gängigen Druckern, Ausschnitt¬ 
vergrößerungen, 32 Farbraster, Grafikeditor, Freezer 
und Darstellung der Kopie vor dem Ausdruck auf dem 
Bildschirm. 

Autor: Matthias Uphoff 


Kassette 

Diskette 


DM 59,— 
DM 69,— 


FAst BAsic COMpiler 

BASIC-1.1-Programme 
um ein Vielfaches schneller! 

Unterstützung der Vortex-Peripherie, aller CP/M- 
Dienstprogramme und von Integer- und Fließkomma- 
Arithmetik. 

Mit ausführlicher deutscher Bedienungsanleitung. 

Für alle CPCs 

Diskette dm 69,- 

DIE BASIC2 TOOLBOX 

Das große Buch zum Locomotive 
BASIC2 für PC 1512/1640 

Mit vielen Programmen für die tägliche Praxis: 

Lister, Komprimierung, Crossreferenzgenerator, 
Textdatei-Manager, Hexdump, Taschenrechner 
und ein Disassembler für Intel 8086. 


BUCh, ISBN 3-926177-01-2 

Diskette, pc simzoii 


DM 49,— 
DM 29,— 


Unterhaltung 


Fraktal Generator 3-D 

Faszination Computergrafik für alle CPCs: 

Die Entdeckungsreise in das unerschöpfliche 
Wunderland von Fraktalgrafiken 

Autor: Matthias Uphoff 


Kassette 

Diskette 


DM 59,— 
DM 69,— 


CYRUS II Schach 

Das bewährte Schachprogramm mit 3D-Display, 
einstellbarer Spielstärke und deutscher Bedienungs¬ 
anleitung 

Für alle CPCs 

Kassette dm 12,95 

STARTEST 

Action-Adventure für alle CPCs 
Kassette dm 24,- 

Diskette dm 29,- 

Fantastic Four 

Vier Superprogramme 
zum kleinen Preis: 

COCKAIGNE - Weltraum-Actionspiel 
TERRANAUTI - Science-Fiction-Adventure 
FRUITS - Geschicklichkeitsspiel 

TERRANAUT II - Textadventure 

Für alle CPCs 

Diskette dm 49,— 

CPC Gamebox III 

Brandneu mit 
vier interessanten Spielen: 

ALPHAJET - Weltraumspiel 

KAMPF DEN INSEKTEN - Aktion/Geschick 
TELEFOMANIA - Strategie/Simulation 

FUNBOUNCER -Aktionsspiel 

Für alle CPCs 

Diskette dm 39,- 

CPC Power-Spiele-Paket 

18 tolle Spiele für alle CPCs 
4 Disketten dm 70,— 


KNOW 


Unterhaltsames Frage- und Antwortspiel für die ganze 
Familie mit Editor, Grafikdarstellung und automati¬ 
schen Suchroutinen 

Für alle CPCs 

Diskette dm 29,- 


Das Software-Experiment 

Eine Serie von zehn hochinteressanten Ausflügen in 
die Welt der Computergrafik, Simulation und Künst¬ 
lichen Intelligenz mit insgesamt 17 Programmen und 
einem umfangreichen 180seitigen Handbuch: 
Wordmaster, lernfähiges Mini-Schach, Öko-Simulation 
und andere. 

Autor: Matthias Uphoff 

Für alle CPCs 

Kassette dm 59,— 

Diskette dm 69,- 

Faszination in 3D 

Super-Aktions-Spiele in 
3D-Darstellung mit Sound und Grafik: 


3D-LIGHT CYCLE 
3D-LABYRINTH 


- Aktion 

- Geschicklichkeit 


Für alle CPCs mit Farbmonitor. 
Inklusive 3D-Brille. 

Diskette 


1 Bücher 1 

CPC Bücherkiste 


Aus dem SYBEX-Verlag 


Arbeiten mit dBASE II 

DM 48,— 

Schneider CPC - Arbeiten mit dBASE II 

dm 48,— 

Schneider CPC - Arbeiten mit Turbo Pascal 

DM 48,— 

Das Schneider CPC Grafikbuch 

DM 48,— 

Schneider CPC - Erfolg mit Multiplan 

DM 48,— 

Schneider CPC Assembler mit Kursus 

Buch und Assembler, Kasette 

DM 59,— 

Buch und Assembler, Diskette 

DM 69,— 

Aus dem DATA-BECKER-Angebot 

Das Floppybuch zum CPC 

DM 49,— 

Das CP/M-Trainingsbuch zum CPC 

DM 49,— 

Das Maschinensprachebuch zum CPC 

DM 39,— 

Das große Grafikbuch zum CPC 

DM 49,— 

Taschenbuch: Führer zum CP/M 

dm 19.80 

Das große Buch der Public-Domain-Software: 

Freie CP/M-Programme für Commodore 128, 

Schneider CPC und Joyce 

dm 34.80 

Das BASIC-Buch zum 6128 

DM 39,— 

CPC Hardware-Erweiterungen 

DM 49,— 


Unabhängig von der Anzahl der bestellten Produkte 
berechnen wir für das Inland DM 4,- bzw. für das 
Ausland DM 6,- Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag - Postfach 250 - 3440 Eschwege 
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100,- DM 
für 1 kByte 

die Herausforderung 


Unglaublich, aber wahr. Da sitzt man an seinem 
Schreibtisch und überlegt jeden Monat, welche Pro¬ 
gramme denn nun ausgewählt werden sollen. Dabei ist 
das wesentlich schwerer, als Sie denken. Bekommen Sie 
doch einmal pro Tag 60 Zuschriften, aus denen Sie das 
Beste auswählen sollen. Daher kann es es auch passie¬ 
ren, daß Programmeinsendungen länger liegen bleiben 
als vorgesehen. Aber wir tun unser Bestes für Sie. Seien 
Sie uns bitte nicht böse, wenn es einmal länger dauert. 


1. Programm: Gummi 

Wer jetzt glaubt, mit diesem Programm Kaugummi erzeugen 
zu können, ist falsch gewickelt. Allerdings mit Gummi hat 
das Programm schon was zu tun. Diese kleine Routine macht 
es möglich, daß ein Text auf dem Bildschirm ausgegeben 
werden kann, der den Eindruck erweckt, der Text wäre aus 
Gummi. 

Anwendung: 

Im Programm befindet sich eine Stringvariable namens 
’Text$’ (Zeile 40). In dieser Variablen können Sie einen be¬ 
liebigen Text hinterlegen, um ihn gummiartig auf den Bild¬ 
schirm auszugeben. Das Ganze sieht dann so aus, als wenn 
die Buchstaben oder auch beliebige Zeichen hoch und runter 
springen würden. Bestimmte Positionen lassen sich mit fol¬ 
genden Variablen bestimmen: 

’htab’ bestimmt die Zeilenausgabe 
’vtab’ bestimmt die Spaltenzahl 

Eine weitere Variable (zadr) enthält dabei die vom Pro¬ 
gramm berechnete Zeichenadresse. 

(Michael Dudenhöffer/cd) 


2. Programm: Tauschen 

Wer schon mal mit Sortierprogrammen gearbeitet hat, kennt 
das lästige Problem mit der Garbage Collection bei den 
CPCs. Die CPCs legen die Stringvariablen in den freien Be¬ 
reich zwischen Programmende und HIMEM von oben nach 
unten ab. Beim Vertauschen von Strings wie 
hilf$=name$(i):name$(i) = name$(i):name$(i) = hilf$’ wer¬ 
den drei neue Variablen angelegt. Hat man viele Variablen 
zu sortieren und/oder ist das Programm sehr groß, ist der 
freie Speicher bald nicht mehr frei, und der CPC beginnt mit 
der Garbage Collection. Das heißt, er sucht die nicht mehr 
benötigten Srings, löscht diese und schiebt die anderen nach 
’oben’. Das kostet besonders beim CPC 464 viel Zeit. 

Es gibt aber eine andere Möglichkeit. 
Die CPCs arbeiten mit Pointern, also 
Zeigern, die auf die Stelle im Speicher 
'zeigen’, wo die jeweilige Variable ab¬ 
gelegt ist. Zum Vertauschen von zwei 
Strings müssen also nur diese Pointer 
vertauscht werden, die Variablen selbst 
bleiben an ihrem Platz. Wo findet man 
diese Pointer? 



Mit ’PRINT@name$(i)’ (@ steht für den Klammeraffen) be¬ 
kommt man die Adresse der ersten Variablen. Hier steht die 
Länge des Strings, die auch vertauscht werden muß. In a +1 
und a-t-2 steht dann die eigentliche Adresse (in der Form 
Low-Byte, High-Byte), an der dann die Variable zu finden 
ist. 

Es sind also drei Pointer zu vertauschen. In BASIC würde 
das auch zu langsam gehen, also benötigt man ein kleines 
Maschinenprogramm. Es kann überall abgelegt werden, da 
es nicht mit festen Adressen arbeitet. 

Aufruf: 

CALL adresse,@name$(i),@name$(j). @ = Klammeraffe!. 
Hier noch der Maschinencode: 


100 


ORG 

???? 

;Startadresse beliebig 

110 

FE 02 

CP 

2 

;2 Variable übergeben? 

120 

CO 

RET 

NZ 

;nein, Ende 

130 

DD 66 03 

LD 

H,(IX+3) 

; Adresse 

140 

DD 6E 02 

LD 

L,(IX+2) 

;1 .Variable 

150 

160 

06 03 

LD 

B,3 

;3 in Schleifenzähler 

170 

4E tausch 

LD 

C,(HL) 

;Wert l.Adr in C 

180 

1A 

LD 

A,(DE) 

;Wert 2. Adr in A 

190 

77 

LD 

(HL),A 

;Wert 2. Adr. in l.Adr 

200 

79 

LD 

A,C 

;Wert l.Adr in A 

210 

12 

LD 

(DE),A 

;und in 2. Adresse 

220 

23 

INC 

HL 

;Adr um 

230 

13 

INC 

DE 

; eins erhöhen 

240 

10 F7 

DNJZ 

tausch 

; Schleifenzähler=0? 

250 

C9 

RET 


;ja=Ende 


(Klaus Bauer/cd) 

3. Programm: Tastaturübersetzung (Keytrans) 

Keytrans soll zum besseren Verständnis des Keyboards bei¬ 
tragen, genauer der Keyboard-Manager der Firmware zu den 
CPCs. Wissen Sie die Werte einer gedrückten Taste? Nein, 
dann können wir Ihnen weiterhelfen. Mit diesem Programm 
erfahren Sie deren ASCII-Codes für SOLO / SHIFT und 
CTRL. 

Das Programm fragt fortwährend die zehn Bytes der Tastatur 
ab: Die Adressen &B4F5-&B4FE (CPC 664/6128: 
&B635-&B63E), deren 10*8 Bits den Zustand der einzelnen 
Tasten verschlüsseln. Ein nicht gesetztes Bit zeigt eine ge¬ 
drückte Taste an. Aus der Zeile und der Position des Bits im 
Byte (1-8) kann die Tastennummer errechnet werden. 

nummer = 8 * zeilennr. - bitpos. 

Diese Nummer wiederum erlaubt den Zugriff auf die ASCII- 
Belegung der gedrückten Taste. 

Man sieht den schönen Effekt, daß bei drei gedrückten, 
rechtwinklig zueinanderstehenden Tastennullen der vierte 
Eckpunkt auch als gedrückt angezeigt und registriert wird. 

Viel Spaß beim Ausprobieren. „ , ,, 

^ r (Michael Fetzer/cd) 


4. Programm: Zoom 

Wer hat sich nicht ein Programm gewünscht, mit dem es 
möglich ist, Bildschirminhalte zu vergrößern. Eine mögliche 
Anwendung wäre zum Beispiel eine Einbindung in einem ei¬ 
genen Malprogramm. Das Programm 'Zoom’ ermöglicht es 
Ihnen, diese Funktion einzubauen. 
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Das Hilfsprogramm liegt als Datalader vor und kann mittels 
RSX-Befehle funktionell eingesetzt werden. 

Diese RSX-Erweiterung dient zur zweifachen Vergrößerung 
und ist vor allem zum Einsatz bei Malprogrammen gedacht. 
Sie hat den Vorteil, daß es erstens gut aussieht, wenn man in 
einem Pull-Down-Menü vergrößert zeichnet, und man zwei¬ 
tens auch sehen kann, was man zeichnet, da der restliche 
Bildschirm stehenbleiben kann. 

Die Routine arbeitet besonders fix, da sie direkt den Bild¬ 
schirmspeicher liest bzw. beschreibt und direkt (durch BIT- 
Operationen) vergrößert. Die Geschwindigkeit hängt aber 
vom Modus ab (in Mode 0 am größten). Die Routine erreicht 
allerdings auch in Mode 2 eine Geschwindigkeit, die es er¬ 
laubt, ein Achtel des Screens innerhalb von zwei Sekunden 
zu vergrößern (!). 

Bedienung 

Der eingebundene Befehl heißt | ZOOM. Er benötigt folgen¬ 
de Parameter: 

xquellerechts,xquellelinks,yoben,yunten,xziellinks, 

yzieloben 

Beispiel: 

Vergrößern von “Ready“ nach dem Mode-Befehl (Mode 1) 

1 Zoom,0,80,398,382,320,200 
(Vergrößert in die Bildschirmmitte 320,200) 

Er ist nicht gegen Fehlbedienung abgesichert und schreibt im 
OR Modus. (Force: Poke &A139,0:Poke &A142,0:Poke 
&A 175,0). 

Es läuft in allen Modi auf allen CPCs. 

(Tim Schaub/cd) 

5. Programm; List 

Dieses Programm listet alle REM-Zeilen eines Programms 
zweispaltig auf. Dies ist zum Beispiel beim CPC Assembler 
zum größeren Überblick über einen Quelltext hilfreich. Das 
Programm arbeitet seitenweise, das heißt, man verpaßt keine 
REM-Zeile. 

Arbeitsweise 

Zuerst liest das Programm die ersten zwei Bytes einer BA- 
SlC-Zeile (siehe Tabelle 1) und überliest sie, weil sie nur die 
Länge der Zeile angeben. Als nächstes wird die Zeilennum¬ 
mer aus den nächsten zwei Bytes gelesen und gespeichert. 
Darauf holt sich das Programm das nächste Byte und ver¬ 
gleicht es mit &C0(’). Ist diese Bedingung erfüllt, liest es den 
Klartext und gibt alles aus, ansonsten wird schon zur näch¬ 
sten Zeile gesprungen. 

Bedienung 

Das darzustellende Programm wird mit MERGE “Pro¬ 
grammname“ geladen. Dann startet man LIST mit RUN 
60000. 

Tab. 1: Beispiel: BASIC-Zeile 10 ’Hallo 

0C 00 01 00 01 C0 48 61 6C 6C 6F 00 

Länget Zn TTokent Hai 1 ot End 

(Tim Schaub/cd) 


6.Programm: Kreis 

Mit diesem Programm kann ein Text in Kreisform ausgege¬ 
ben werden. Dazu können verschiedene Parameter einge¬ 
stellt werden (Schriftgröße, Pen, Radius, usw). Es werden 


ganz normale Screens verarbeitet, wie sie von den meisten 
Programmen benutzt werden. Sogar eine UNDO-Funktion 
ist vorhanden. 

Die Befehlsübersicht: 

L - Load: Der Bildschirm wird gelöscht 
und das Inhaltsverzeichnis der aktuellen 
Diskette angezeigt. Geben Sie nun den 
Namen des zu ladenden Bildes ein und 
drücken dann ENTER, worauf das Bild 
geladen wird. 

S - Save: Geben Sie den Namen ein, un¬ 
ter dem das Bild abgespeichert werden 
soll. Das aktuelle Bild bleibt erhalten. 

U - Undo: Haben Sie versehentlich einen falschen Parameter 
angegeben, oder sieht die Grafik nicht so aus, wie Sie es ger¬ 
ne hätten, benutzen Sie die Undo-Funktion. Dadurch wird 
die zuletzt gezeichnete Grafik wieder gelöscht. 

G - Größe: Hier stellen Sie die Größe der Buchstaben ein. X 
ist der Faktor für die Breite, Y für die Höhe. Die kleinsten 
Werte sind 2, 2, die voreingestellten sind 5, 5. 

D - Draw: Mit diesem Kommando wird der Text ausge¬ 
geben. 

1. ’Pen, Text:’ Zeichenstift, auszugebenden Text 

2. ’X,Y, Rad.:’ Mittelpunkt und Radius des Kreises 

3. ’Startw., Step:’ Startwinkel, Winkel Zeichen-Zeichen 
a: Hilfsvariable 

i: Laufvariable 
j: Laufvariable 
k: Laufvariable 
1: Laufvariable 
h: Faktor für die Höhe 
b: Faktor für die Breite 
f: Zeichenstift 
p: Pen 

x: Mittelpunkt des Kreises x (Zeile 180) 
y: Mittelpunkt des Kreises y (Zeile 180) 
r: Radius des Kreises 
w: Startwinkel 
s: Winkel Zeichen-Zeichen 



x: Punkt auf der Kreislinie x (Zeile 190) 
y: Punkt auf der Kreislinie y (Zeile 190) 
t$: Menüauswahl (Zeile 110) 

t$: Text (Zeile 180) ... , _ . , , 

(Alexander Seitz/cd) 


Die Bedingungen 

Hier die Bedingungen unseres Wettbewerbs: Wir suchen 
komplette Programme (bitte ohne Steuerzeichen!), die funk¬ 
tionsfähig möglichst auf allen drei CPCs laufen (was nicht 
heißen soll, daß wir bei besonders guten keine Ausnahme 
machen) und die nicht länger als 1 kByte sind (Anzeige auf 
dem Datenträger gilt!). Der Preis für solche Programme be¬ 
trägt 100,— DM. Senden Sie uns Ihr 
Programm (maximal zwei Programme!) 
auf Datenträger (Diskette/Kassette) mit 
Programmbeschreibung (möglichst in 
ASCII-Form mit auf dem Datenträger) 
zu und zwar an den 

DM V-Verlag 
Postfach 250 
Stichwort: 100,— DM 
3440 Eschvvege 
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1 REM Kreis [625] 

100 OEFINT a-z:MOOE 1:DEG:WINDOW 1,40,1,1: [10413; 
PAPER 1:PEN 0:h=5:b=5:SYMBOL AFTER 256:MEM 
ORY &A 5FF:SYMBOL AFTER 0:MEMORY &3FFF:FOR 
i=&A600 TO &A60C:READ a:POKE 1,a:NEXT:DATA 
33,0,&cO,17,0,64,0,1,&ff,63,&ed,&bO,&c9 
110 CLS:INPUT"Save, Load, Undo, Gr., Draw: [5214] 

" , t$:t$ = LOWER$(t$) 

120 IF t$="l"THEN WINDOW SWAP 0,1:CLS:CAT: [9117] 
INPUT"Name:",n$:WINDOW SWAP 0,1:CLS:L0AD n 
$,&C000:CA L L &A600 

130 IF t$="s"THEN INPUT"Name:",n$:PRINT CH [5105] 
R$(24):CALL &A600:SAVE n$,b,&4000,&4000:PR 
INT CHR$(24) 

140 IF t$="u"THEN POKE &A606,&EB:CALL &A60 [2623] 
0:POKE &A606.0 


150 IF t$="d”THEN CALL &A600:CLS:GOSUB 180 [2402] 
160 IF t$="g"THEN CLS:INPUT"X, Y:",b,h [2202] 

170 GOTO 110 [423] 

180 INPUT"Pen, Textf,t$:INPUT"X, Y, Rad [8458] 

.:",x,y,r:INPUT"Startw., Step:",w,s:ORIGIN 
x,y,0,640,0,382 

190 FOR i=1 TO LEN(t$):adr=&9E00+ASC(MID$( [13020] 

t$, i ,1))*8+7:FOR j =0 TO 7:FOR 1=0 TO h-1 S 
TEP 2 : x=(r + j*h+1 )*SIN(w):y=(r + j*h+1)*COS(w 
):FOR k=1 TO 8:M0VE b*(k-1-b)*SIN(w+90)+x, 
b*(k-l-b)»COS(w+90)+y:p=f AND VAL(MID$(BIN 
$(PEEK(ad r-j),8),k,1)) = 1 

200 IF NOT INKEY(79)THEN 110 ELSE IF p THE [4208] 

N DRAW b*(k-b)*SIN(w+90)+x,b*(k-b)*COS(w+9 
0)+y,p 

210 NEXT k ,' 1 , j : w=w+s : NEXT i : RETURN [1833] 

Listing Kreis 


Hard und Soft 

Hardcopy für den Seikosha 180AI 

Ein universelles Programm für die Erzeugung von Hard¬ 
copies gibt es nicht. Darum muß der Anwender sich müh¬ 
sam sein eigenes Programm erarbeiten, oder er muß auf 
fertige Software zurückgreifen. Hier eine preiswerte Alter¬ 
native für den Seikosha 180AI. 


für 464-664-6128 

i . ' 



10 REM Hardcopy Version 1.0 [1727] 

20 INPUT' "Startadresse ";adr [2263] 

30 IF ad r < 368 OR adr>49152 THEN 20 [1123] 

40 MEMORY adr-1 [160] 

50 FOR n= 0 TO 227 [593] 

60 READ byte$ [603] 

70 POKE ad r + n,VAL ("&" + byte$) [ 955 ] 

80 NEXT n [366] 

90 dif=224:GOSUB 510: POKE adr + 4,1o:POKE a [2395] 
dr+5.hi 

100 POKE adr+95,10:POKE adr+96,hi [1560] 

110 dif = 47:GOSUB 510: POKE adr+7,1o:POKE a [2342 ] 
dr+8,hi 

120 POKE adr+44,lo:POKE adr+45,hi [1128] 

130 POKE adr+220,lo:POKE adr+221,hi [1754] 

140 dif = 225:GOSUB 510:P0KE adr+13,1o:POKE [ 1600] 
adr+14,hi 

150 POKE adr+31,lo:POKE adr+32,hi [720] 

160 POKE adr+38,lo:POKE adr+39,hi [2069] 

170 POKE adr+73,lo:POKE adr+74,hi [2250] 


180 dif=58:GOSUB 510:P0KE adr+19,1o:POKE a [4124] 
dr+ 20 ,hi 

190 dif = 120:GOSUB 510:P0KE adr + 22,1o:POKE [3251] 
adr+23,hi 

200 dif=219:GOSUB 510:POKE adr+25,1o:POKE [2819] 
adr+26,hi 

210 dif = 1 2 6 :GOSUB 510:P0KE adr + 28,1o:POKE [ 2264] 
adr+29,hi 

220 di f = 209:GOSUB 510:P0KE adr+50,1o:POKE [2468] 


adr + 51, hi 

230 POKE adr+55,lo:POKE adr+56,hi [2043] 

240 POKE adr+132,1O:POKE adr+133,hi [1553] 

250 POKE ad r +13 7,1o:POKE adr+138,hi [ 585 ] 

260 POKE adr+142,1o:POKE adr+143,hi [1488] 

270 POKE adr+150,lo:POKE adr+151,hi [1839] 

280 POKE adr+155,1o:POKE adr+156,hi [1874] 

290 POKE adr+160,1o.POKE adr+161,h1 [2005] 

300 POKE adr+166,lo:POKE adr+167,hi [1252] 

310 POKE adr+171,1o:POKE adr+172,hi [ 1607 ] 

320 POKE adr+176,lo:POKE adr+177,hi [917] 

330 POKE adr+181,lo:POKE adr+182,hi [614] 

340 POKE adr+194,1o:POKE adr+195,hi [1593] 

350 POKE adr+206,lo:POKE adr+207,hi [2034] 


Listing Hard und Soft 


Diese Routine kommt mit der 7-Bit-Centronics-Schnittstelle des 
CPCs aus. Sie druckt das Bild um 90 Grad gedreht aus, wobei 
der Ausdruck ungefähr der Größe des Bildschirms entspricht. 
Der Ausdruck läßt sich durch längeres Drücken der CLR-Taste 
abbrechen. Das Besondere ist jedoch der versetzte, doppelte 
Ausdruck jeder Grafikzeile. Mit diesem Verfahren werden wei¬ 
ße Streifen, die bei einem einmaligen Ausdruck bei einem 
9-Nadel-Drucker entstehen, überschrieben, und man bekommt 
einen kopierfähigen Ausdruck. Bei dem Seikosha SP-180AI 
dauert ein Ausdruck zirka acht Minuten. Ob andere Drucker mit 
diesem Programm laufen, ist fraglich. (Uwe Dirksen/cd) 


360 POKE adr+213,1o:POKE adr+214,h1 

370 dif=227:GOSUB 510:POKE adr+61,1O:POKE 

adr+62,hi 

380 POKE ad r + 82,lo:POKE adr + 83,hi 
390 POKE adr+112,lo:POKE adr+113,hi 
400 dif=228:GOSUB 510: POKE adr + 66,1O:POKE 
adr+67,hl 

410 POKE adr+186,1O:POKE adr+187,hi 
420 dif=105:GOSUB 510:P0KE adr+100,1o:POKE 
adr+101,hi 

430 dif=163:GOSUB 510:P0KE adr+127,1o:POKE 
adr+128,hi 

440 POKE adr+145,1O:POKE adr+146,hi 
450 PRINT "Maschinencode saven [j/n] ?" 

460 a$=UPPER$(INKEY$) 

470 IF a$="" THEN GOTO 460 

480 IF a$<>"J" AND a$<>"N" THEN GOTO 460 

490 IF a$="J " THEN SAVE "hardcopy.bln",b,a 

d r,& 1AC,ad r 

500 END 

510 h1=INT((adr + dif)/256):lo = adr + dif-2 5 6* h 
i 

520 RETURN 

530 DATA cd,e7,bb,32,00,00,cd,00,00,21,f9, 
ff ,22,00,00,06,5d 

540 DATA c5,cd,00.00,cd,00,00,c2,00,00,cd, 
00,00,2a,00,00,11 

550 DATA 07,00,19,22,00,00,cl,10,e6,cd,00, 
00,c9,3e,lb,cd,00 

560 DATA 00,3e,40,cd,00,00,c9,06,c8,21,00, 
00,36,00,21,00,00 

570 DATA c5,36,00,ed,5b,00,00,01,40,07,c5, 
e5,d5,2a,00,00,26 

580 DATA 00,29,cd,fO,bb.dl,el,13,4f,3a,00, 
00 , b9 ,cl,ca,00,00 

590 DATA 7e,81,77,cb,29,10,el,23,e5,21,00, 
00,34,e1,c1,10,cd 

600 DATA c9,3e,10,cd,le,bb,c9,cd,00,00,3e, 
lb,cd,00,00,3e,4a 

610 DATA cd,00,00,3e,01,cd,00,00,cd,00,00, 
3e,1b,cd,00,00,3e 

620 DATA 4a,cd,00,00,3e,14,cd,00,00,c9,3e, 
lb,cd,00,00,3e,4c 

630 DATA cd,00,00,3e,20,Cd,00,00,3e,03,cd, 

00,00,06,C8,21,00 

640 DATA 00,C5,7e,06,04, f 5,Cd,00,00,f1,10, 
f9,23, cl,10,fl,3e 

650 DATA Od,cd,00,00,c9,cd,2e,bd,da,00,00, 

cd,31,bd,c9,cd,00 

660 DATA 00,cl,c9,00,00,00,00 

Listing Hard und Soft 


[1812] 
[ 1948 ] 

[2119] 
[ 1056] 
[2260] 

[1177] 
[ 2931 ] 

[2620] 

[1163] 
[3788] 
[ 789 ] 
[870] 
[2253] 
[2490] 

[ 110 ] 

[2255] 

[ 555 ] 

[ 2701 ) 

[ 2556 ] 

[2976] 

[2653] 

[2490] 

[2814] 

[4056] 

[3310] 

(2099] 

[ 2901 ] 

[2620] 

[2754] 

[ 3497 ) 

[1698] 
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Rückmeldung 

in BASIC 

Directory-String und Statusmel¬ 
dung - RSX macht 9 s möglich 

Ein Laufwerk an seinem CPC 6128 zu haben, ist eine 
wunderbare Sache, es ist schnell, sicher und recht ein¬ 
fach zu handhaben. Leider fällt einem beim Program¬ 
mieren unter BASIC sehr schnell auf, daß man keinerlei 
Möglichkeit hat, eventuelle Fehler (Diskette nicht einge¬ 
legt, Programm oder Datei nicht gefunden) innerhalb 
des eigenen Programmes abzufangen und das Directory 
als String einzulesen und weiterzubearbeiten. Das soll 
sich nun ändern, denn wofür besitzt der CPC die Eigen¬ 
schaft, RSX-Befehle auszuführen? 

Endlich kann das Directory von BASIC aus in einen String 
eingelesen werden. Nehmen Sie dafür den Befehl | DIRSTR. 
Außerdem können Sie mit | STATUS den Zustand der Lauf¬ 
werke problemlos und einfach von Ihrem eigenen Programm 
aus abfragen. Zugriffe auf ein nicht vorhandenes B-Lauf- 
werk gehören damit der Vergangenheit an. 

Die neuen Befehle im einzelnen 

| DIRSTR,@fehler%,@maske$,@dir$,@frei%,@n% 

liefert in ’dir$’ die Files des Directory. In ’maske$’ müssen 
Sie den Filenamen oder eine Wildcard entsprechend dem 
DIR-Befehl übergeben. Die größtmögliche Maske ist 
“15B:????????.???“. Sie liest alle Files von User 15 Lauf¬ 
werk B in ’dir$’ ein. Die Variable ’frei%’ enthält nach Aus¬ 
führung von | DIRSTR den freien Speicherplatz. Die dritte 
Variable ’n%’ gibt die Anzahl der Files, die der Maske ent¬ 


sprechen, zurück. Maximal werden jedoch 21 Files in ’dir$’ 
eingelesen, da im Schneider BASIC ein String nicht länger 
als 255 Zeichen sein kann. Trat beim Lesen des Directory ein 
Fehler auf, war also die Diskette nicht eingelegt oder kein B- 
Laufwerk angeschlossen, so bekommt ’fehler%’ den Wert 
255. Steht in ’fehler%’ dagegen 0, ist alles o.k.... 

Maximal 21 Filenamen werden in ’dir$’ direkt hintereinan¬ 
der abgelegt. Mit dem BASIC-Befehl ’MID$’ kann der ein¬ 
zelne Filename herausgeschnitten werden (siehe BASIC-Li- 
sting). 

| STATUS,@drive%,@status% 

ermittelt den Zustand des mit ’drive%’ gewählten Lauf¬ 
werks. Steht in ’drive%’ der Wert 0, wird Laufwerk A selek¬ 
tiert, steht in ’drive%’ eine 1, gilt das gleiche für Laufwerk 
B:. In ’status%’ stehen nach Ausführung drei mögliche Werte: 
0 - > Laufwerk bereit, Diskette nicht schreibgeschützt 

1 - > Laufwerk bereit, Diskette schreibgeschützt 

2 - > Laufwerk nicht vorhanden oder keine Diskette eingelegt 
Beachten Sie bei beiden RSX-Befehlen, daß die Variablen 
mit führendem Klammeraffen (@) übergeben werden müs¬ 
sen. Außerdem müssen sämtliche Variablen zuvor im BASIC 
initialisiert werden, indem ihnen irgendein Wert zugewiesen 
wird. Die Stringvariable 'dir$’ muß mit 252 Zeichen gefüllt 
werden. Dies erledigt die FOR-NEXT-Schleife in Zeile 310 
des BASIC-Listings 2. Sie belegt ’dir$’ mit 252 (0-251) 
Spaces, dies entspricht der Länge von von 21 Filenamen 
(maximale Länge=21). Die Integervariablen müssen auch 
als solche definiert werden. Dazu hängt man ihnen ein ’ % ’ an 
oder verwendet den DEFINT-Befehl von BASIC. 

Das Binärprogramm nimmt den Bereich von &A000 - 
&A200 ein, benötigt jedoch einen temporären Buffer ab 
&9CDO, um die Filenamen zwischenzuspeichem. Tippen 
Sie den BASIC-Lader ab, und starten Sie mit ’RUN’. Die 
Anwendung der beiden Befehle erlernen Sie am besten mit 
dem DEMO-Programm. Viel Spaß mit den neuen Befehlen. 

(Christoph Hipp/jb) 
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20 * BASIC Lader fuer rsx-dlet.bln // Prog 
rammname des Laders: rsx-dlst.dat 
30 1 

40 DATA 01,13,AO,21,0F,AO,CD,01,BC,3E,C9,3 
2,00,AO,C9,00,= 1664 

50 DATA 00,00.00,ID,AO,C3,2A,AO.23,A0.C3.1 
3,Al,44,49,52,= 1379 

60 OATA 53,54,D2,53,54,41,54,55,D3,00.FE,0 
5,CO,3E,FF,32,= 1807 

70 DATA 78,BE,05,DD,E5,00,6E,06.DD,66,07,7 
E,32,OC,AO,23,= 2231 

80 DATA 5E,23,56,EB,4F,06,00,11,DF,AO,ED,B 
0,21,SA,BB,E5,= 1887 

90 DATA ll,EF.AO,Ol,O3.OO,C5.E0,BO,21,F2,A 
0,CI,01,ED,BO,= 2280 

100 DATA 21,00,9C,22,F5,AO,DD,21,DA,AO,3E, 
01,DF,D7,A0,DD,= 2350 

110 DATA El.FD,El,AF,32,78,BE,DS,11,5A.BB, 
21,EF,A0,01,03,= 2181 

120 OATA 00,ED,BO,DD,6E,08,DD,66,09,36,FF, 
D1,CD,F7,A0,D0,= 2422 

130 DATA 36,00,FD,E5,OD,6E,02,DO,66,03,73, 
23,72,DO,6E.04,= 1794 

140 DATA DD,66,05,23,5E,23,56,DD,21,E6,9C, 
06,15,DD,7E.08,= 1600 

150 DATA FE,2E,20,1A.DD.E5,E1,C5,01.OC,00, 
ED,BO,CI,2B,23,= 1927 

160 DATA 7E,FE,21,38,FA,E5,DD,E1,21.0C,00, 
19,10,DF,3E,15,= 1786 

170 DATA 90,E1,77,23,36,00,C9,2E.D4,07,DC. 
A0,03,DF,A0,OO,= 1809 

180 DATA 00,00,00,00,00,00,00,00,00,00,00, 


[1278] 

[3763] 

[117] 

[ 2872 ] 

[ 2057 ] 

[2692] 

[3399 ] 

[2702] 

[2858] 

[2656] 

[3210] 

[2544] 

[2739] 

[2774] 

[ 1975 1 

[2900] 

[1474] 

[1446] 


00 , 00 , 00 , 00 , 00 ,= 0 

190 DATA 00,00,C3,08,A1,00,00,0D,E5,DD,21, [2254] 

D0.9C.DD,7E,0B,= 1790 

200 DATA DD,E1,FE,75,37,C8.B7,C9,E5,2A,F5, [2899] 
AO,77,23,22,F5,= 2565 

210 OATA A0,E1,C9,FE,02,C0,D5,3E.FF,32,78, [?429 ] 

BE,DD,6E,02,D0,= 2478 

220 DATA 66,03,7E.E6.01,6F,F3,OE,07.CD,OF, [2294] 

B9,C5,C0,00,B9,= 1829 

230 DATA 50,16,00,CD,63.C7,3E,04,01,7E.FB, [2150] 
CD.5C.C9,7D,CD,= 1890 

240 DATA 5C.C9,CD,1C.C9,FB,C1,CD,OF,B9,CD, [1863] 
03,B9,E1,3A,4C,= 2328 

250 DATA BE,OE,02,CB,6F,28,06,00,CB,77,20. [3226] 


01.00,79,77,23,= 1222 

260 DATA 36,00,AF,32,78,BE,C9,eof,= 790 [1230] 

360 • Hauptprogramm [1580] 

370 MEMORY &9FFF [134] 

380 zelle = 10 : schritt = 10 [1332] 

390 adr = &A000 : last = &A167 [1231] 

400 FOR 1=1 TO 16 [317] 

410 READ byte$ [803] 

420 IF byte$="eof" THEN 1=16 [2399] 


430 IF byte$<> "eof" THEN POKE adr,VAU [2296] 

"&"+byte$) 

440 IF byte$< >"eof" THEN sum = sum + P [ 1292 ] 

EEK(adr) 

450 IF byte$< >"eof" THEN adr = adr + 1 [1617] 

460 NEXT [350] 

470 READ checksum$:IF checksum$="eof" THEN [4002] 
READ cheeksum$ 

480 checksum=VAL(MID$(checksum$,3)) [1881] 

490 IF sum <> checksum THEN PRINT "Fehler [4969] 
ln Zel1e";zel1e+3*schr1tt:END 

500 IF adr < last THEN sum = 0 : zelle = z [2228] 
eile + schritt : GOTO 400 

510 INPUT "Abspeichern (J/n)";e1n$:ein$=UP [2522] 
PER$(e1n$ ) 
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520 IF e1n$="J" THEN PRINT :PRINT "Savlng. [5645} 
..":SAVE"rax-dlst.dat" :SAVE"rsx-dlst.bln", 
b,&A000,6167,&A000 

530 END mm 


30 1 

* 01skettenroutinen 

« 


[ 16S4; 

40 ‘ 

» 1988 by Mercurysoft 

* 


[1692] 

50 1 

»*«****»**»**» 

* 


[345] 

60 • 




[117] 

70 1 

Beispiel fuer die Anwendung 

von: 


[3499] 

80 1 




[117] 

90 ' 

! STATUS,»drlveX,»statusX 



[1492] 

100 

‘ drtveX=0 -> Laufwerk A 



[2194] 

110 

* dr1veX=l -> Laufwerk B 



[1722] 

120 

' statusX=0 -> alles OK 



[781] 

130 

* atatusX=l -> Diskette sehr 

e 1 bge 

schu 

[1343] 

etzt 





140 

statusX=2 -> Keine Diskette ein 

gel e 

[2946] 

Qt 





150 

* 



[117] 

160 

‘ !DIRSTR,»fehler*,8maske$,9dir$.» 

frei 

[2065] 

X,»n 

X 




170 

' maske$ : Wlldcards, sowie 

Drive 

- un 

[3680] 

d Us 

erangsbe moegllch 




160 

’ frei* : freier Speicherp 

atz 


[2324] 

190 

' n* : Anzahl der Files 

(max . 

21) 

[1974] 

200 

' feh1erX=0 -> alles OK 



[1202] 

210 

' fehlerXOO -> Kommando nicht ko 

r rek 

[3480] 

t au 

sgefuehrt 




220 

dlr$ dis Flies sind h 

e r 1 n 

abge 

[ 1669 

1 egt 





230 

' 



[117] 

240 

MEMORY &9CD0-1:LOAD"!rsx-dlst 

.bin“ 

, IAO 

[5647] 

00:CALL &A000: 1 Diese Zelle nur 

e 1 nma 

1 au 


sf ue 

hren ! ! ! 




250 

' 



[117] 

260 

' Inltlal1slerung 



[1300] 

270 

* 



[117] 

260 

DIM dlr$(20) 



[ 698] 

Listing 

Rückmeldung 






290 

FOR 1=0 TO 20:d1r$(i)=5PACE$(12):NEXT 

[1763] 

300 

d r1veX = 0 :status*=0:n* = 0:fre1*=0:fehl er 

[3038] 

X=0 


310 

FOR 1=0 TO 251 :d1r$=d1r$ + " " :NEXT:' dl 

[3049] 

r$ fuel1en 


320 


[117] 

330 

MODE 2 

[513] 

340 

INPUT "Laufwerk A oder B testen ";driv 

[2105] 

e$ 


350 

dr1ve$=UPPER$(dr1ve$) 

[1807] 

360 

n 

IF drlve$< >"A" AND dr1ve$<>"B" THEN 33 

[1161] 

370 

dr1ve*=ASC(dr1ve$)-65 

[1895] 

380 

I STATUS.»drlve*.»Status* 

[3419] 

390 

IF statusX=0 THEN PRINT"Laufwerk ";dr1 

[8329] 

ve$; 

bereit, Diskette nicht sch re 1bgeschu 


etzt!“ 


400 

IF statusX=1 THEN PRINT"Laufwerk “;dr1 

[7351] 

ve$; 

bereit, Diskette sch re 1bgeschuetzt!" 


410 

IF statusX=2 THEN PRINT"Laufwerk ";dri 

[5900] 

ve$; 

NICHT bereit oder Diskette nicht ein 


gelegt 1 " 


420 

' 

[117] 

430 

PRINT:INPUT"Maske fuer Directory ";mas 

[3405] 

ke$: 

IF maske$="" THEN 430 


440 

!DIRSTR,»fehlerX,»maske$,@d1r$,@freiX, 

[3116] 

»n* 


450 

IF fahlerXOO THEN PRINT " D1 s k f eh 1 e r ! ! 

[2504] 

1 " :END 


460 

" IZ 1 

PRINT "Freier Speicherplatz : ";fre1X; 

[2663] 

h 1 

4 70 

PRINT "Anzahl der Files mit der Maske 

[4216] 

";maske$;": ";nX;" !" 


480 

a = 0 

[ 324 ] 

490 

FOR 1=1 TO nX*12 STEP 12 

[ 1298] 

500 

d1r$(a)=MID$(d1r$,1,12) 

[1647] 

510 

PRINT dlr$(a) 

l 661 ] 

520 

a=a+ 1 

[ 725 ] 

530 

NEXT 

[350] 

540 

END 

[110] 

Listing Rückmeldung 




* STARDRIVE 5.25*-Laufworko lüf CPC 6/464/6128 Jetzt auch In 2x380-KB-Auslührung mit: 

- 12 Monate Garantie, Geräte aus industrieller Produktion 

- Formschönes Flachgehäuso mit Int, Breitband-LED-Anzelge 

- Sehr leiser Laut, Netzteil, Schalter etc. 

- Eingebauter Diskettensoitonumschalter (alle 5,25"- u. 3.5‘-Lautworko) 

- Sofortige Betriebsbereitschah 

- Allo Kabel und Bedienungsanleitung Im Llelerumlang enthalten 


3,5*-Zweitlaulwerk (720 KB) 

5,25'-Zweltlaulwerk (720 KB) 

5,26* Extemal Disk Drive: 

(s, Test in H. 10/88 S. 40: Fazit: ‘sehr empfehlenswert - ) 

als Zweltlaulwerk 

als Erstlautwerk für CPC 464 

Incl. Handbuch, Systemdiskette, Controller 

als Doppelleufwerk 3‘ + 5,25- f. CPC 464 

Incl. Handbuch, Systemdiskette, Controller 

(s. Test PC 5/89, S. 62/63: Das Urteil: -prima.) 

Weitere Angebote (Auszug aus unserer kostenl. Liste): 

- 5,25"-Einbaulaufwerk (Slim-Line) 

- Stardrive 3"-Zweitlaufwerk zum Superprols 

- Stardrive 5 1/4"-Zweitlaufwerk zum Superprele 
(mit TEAC-Laulwerk DM 298,-) 

Preis zzgl Pono/Verpackung, Liste/Prospekto kostenlos 


nur 288, - DM 
nur 348, - DM 


nur 288, - DM 
nur 488, - DM 
nur 688,- DM 


nur 139, - DM 
nur 258,- DM 
nur 278, - DM 


G + L electronic 

Computerhardware 

6759 Hefersweiler * Seelenerstraße 4 * Tel: 06359/2582 


BRANDHEISSE KNULLERPREISE 


ßchn.ld.r 

Tar(*t PC 7640 iPortabU» ATI 
Towe* AT 220 mit Monitor MM 12 

rmt Colormonitor CM 14 
md EGA Monitor EM 14 
Tower AT 260 nwt EGA-Monltor EM 14 

mit Mutlitcan-Mon. MS 14 
20 MB Filocard (Saagnte. 40 m« Zugriffa- 
»ait. ainbau- und anschlußfort.g für alla 
PC 1512 und PC 1640) 

30 MB Filecafd (Saagaiö, 40 mal 
30 MB-Filecard (Western DlgrtalfiS ms) 

Amstrad 

PC 1640 m«t 2 IW ♦ Fifecsfd 70 MB 

Monodvommonitor 2299. - 

Colormonitor 2649 - 

EGA-Monitor 3099.- 

PC 2086 SD 12 MD 2099. -; SD 14 CD 

SD 17 HRCD 2949. -; SD14HRCD 

PC 2086 DD t2 HRCD 3349.- ; DD14HRCD 

PC 2086 HD 12 MD 3149 l HD 14 CD 

HD 12 HRCD 3949HO 14 HRCD 
Portable Computer PPC 612 mit 
2 Dnkottenlautworken 3.5' 

PC 1640 SD mit Schwarrweifimonltor 
mit Colormonitor 

PC 1640 DD mit SchwarrweiGmonitor 
mit EGA-Monitor 

PC 1640 HD 20 nvt SchwBOwoißmoniior 
mit EGA Monitor 


Epsondrucker (dt Handbücher, mH FTZ) 

Anschlußfortig an AMIGA. Schnnidnr PC. 

Atnn ST oder Maga, IBM-Kompatible 

LX 400 52a - 

LO 400 76a- 

LO 550 94a - 

LQ 850 146a - 

LO 1050 189a - 

Stardruckor (d*. Handbüchar. mH FTZJ 

LC-10 mH ControrAcsmterface 449.- 

LC-10 Color Farbdrucker mit Interface 69a - 

LC-24-10 mit ContronicaAntarfac« 87a 

NFC-Oruckar (dt. Handbfcehar, mH FTZJ 
NEC P 2200 899 - I NEC P 7 Plus 189a - 

NEC P 6 Plus 144a-: Ferboption 279,- 

Ein*eiWntt*<nrv.8 für NEC P 6 Plus 449- 

SuparkfiAHar 

Commodore AT PC 30-111 m.t Monitor 2999 - 

24-Nadaldr.LQ 3500 « Toxtvorarboitungsprogramm 629 

Epson Tintenstrahtdrucker IX 8001240 Z-S«k | 699 - 

Siemen BTX-Syatem T 3315 . 15'- Farbmonitor 749 - 

Voraandkostenpouschola (Warenwnrt bis DM 1000. -/darüber): 
Vorauskaste (DM ft - Oft -I. Nachnahma fDM 12.50/24,50}. Aus¬ 
land (DM 20, - /60. -). Lieferung nur gegen NN oder Vbrautkaste: 
Ausland nur Vbrauakasse. 

Preisliste (Computertyp angebeni gegen Zusendung eines Frei- 
umschlags Preise gültig ab 10.7.89 


Neue Speichererweiterung für CPC 

• RAM-Erweiterung 64, 128, 256 oder 512K lür alle CPCs 
Alle Versionen nachträglich aul Maximal-Version aufrüstbar 

• optional 2 EPROM-Sockel mi! frei wählbarer ROM-Nummer(1-15) 

• Patchprogramm für CP/M 2.2 (63K CP/M). Endlich laufen dBase, Multiplan und Wordstar 

• Patchprogramm für CP/M Plus. CP/M Plus auch für CPC 464/664 

• resetfeste RAM-Disc (maximal 448K) für CP/M 2,2 und CP/M Plus 

• resetfeste RAM-Disc unter BASIC (nur bei EPROM-Version) 

• 100% kompatibel zu dk'tronlcs RAM-Erweiterung und Silicon-Oisc 

• Anschluß über den Expansionsport (kein Eingriff in den Rechner nötig) 

• geringe Abmessungen (mit Gehäuse 160 x 83 x 20 mm) durchgetührter Erweiterungsbus 

RAM-Erweiterung mit Software tür CP/M 2.2 und CP/M Plus auf 3"-Diskette 
(wahlweise auch 3.5‘- oder 5.25"-Diskette) 

Preise: ohne RAMs.99.- 0M 64 KByte.149,- DM 128 KByte.199,- DM 

256 KByte. .._299,- DM 512 KByte.449,- DM 

Aulpreis für zusätzliche EPROM-Sockel und Software im EPROM 49,- DM 


X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk ist ein Systomlaufwerk. das anstelle eines 3*-Zweitlaulwerks am CPC 664/6128 
mit eingebautem oder am CPC 464 mit zusätzlichem 3“-Controller betrieben wird. Das X-DDOS- 
Betriebssystem wird zusammen mit einer EPROM-Karte an den CPC angeschlossen. 716 K nutz¬ 
bare Kapazität unter BASIC, CP/M 2.2 und CP/M Plus. 

■ Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS. 

• Es kann soltwaremäßig zwischen X-DDOS und AMSDOS umgeschaltet werden. 

• Es werden Anpassungsprogramme für CP/M 2.2 und CP/M Plus mitgelielert. 

■ Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw. lauffähig. 

• Die 224-KByte EPROM-Karte ha! bei installiertem X-DDOS noch eine Restkapazität von 
208 KByte. 

• Damit X-DDOS auch in beliebigen anderen EPROM-Karten lautfähig ist. wurde völlig aut 
einen Kopierschutz verzichtet. 

• Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden. 

X-DDOS-EPROM, Software 8 Beschreibung 99,- DM 

224-KByte EPROM-Karte, X-DDOS, Software 8 Beschreibung 239,- DM 

5.25* oder 3.5* X-Laufwerk. 224-KByte EPROM-Karte. X-DDOS, Softw. 8 Beschr. 589,- DM 

5.25" oder 3.5* X-Laufwerk, RAM-Erw. ohne RAMs, X-DDOS, Softw. 8 Beschr 589,- DM 


EPROM- Karte 224 KByte für alle CPC 

• Für die EPROM-Typen 2764, -128, -256 

• ROM-Nummern 0-15 frei wählbar 

• 7 Sockel 

■ Bei 27256 zwei ROM-Nummern pro Sockel 
' Durchgeführter Expansionsport 

• Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-Datelen) 

Fertiggerät für CPC 464/664 DM145,- Ferllggerät für CPC 6128 DM169,- 

Modul-Software auf 3"-Dlskette DM 95,- 

Zubehör für EPROM-Karten 

EPROM 2764 DM 7.50 Protext-EPROM DM124- MaxamEPROM DM124,- 

EPROM27128 DM 8,50 PrometgePlus-EPROM OM 114- Utnpia DM 94- 

EPROM 27256 DM11.50 X-DDOS-EPROM DM 99- Alpha ROM DM 35- 

EPROM 27512 DM21,50 Time-ROM (battenegepulterte Echtzeituhr) + EPROM DM135.- 


CSV Riegert fax (0 71 61 ) 1 35 87 

Schloßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89 


DOBBERTlfl 


Industrie-Elektronik GmbH 
BrahmsstraBo 9, 6835 Brühl 
Telefon 06202/71417 
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r~Tips & Tricks 


Hilfe gesucht, mit 
Comfort gefunden 

Menüleisten-Programmie¬ 
rung leichtgemacht 

Haben Sie nicht schon neidisch auf PC-Besitzer mit 
ihrem BASIC2 geschaut? Ja, dann ist Comfort genau 
das Richtige für Sie! Es bietet vier leistungsstarke RSX- 
Befehle in einem kurzen Programm. 


Befehlserläuterung 

1| ARROW,@x%,@y% 

(Wichtig: Nur definierte Integervariablen verwenden, des¬ 
halb Variablen vorher definieren: x% =0:y% =0) 

Auf dem Bildschirm erscheint ein Pfeil, den Sie mit dem Joy¬ 
stick bewegen können. Nach Druck auf die Feuertaste ent¬ 
halten die Variablen x% und y% die Grafikkoordinaten des 
Pfeils. Mit dieser Formel können Sie die Grafikkoordinaten 
in Textkoordinaten umwandeln (hier sei auf Zeile 130 des 
Demoprogramms verwiesen): 
x% =INT(x%/8) + l:y% =26-INT(y%/8+l) 

2 1 OPEN,X-Textkoordinate, Y-Textkoordinate, Breite, 
Länge, Puffer 

öffnet Fenster und schützt vorher den alten Bildschirminhalt. 
Der Puffer muß vorher mit MEMORY puffer-1 geschützt 
werden. Der Puffer darf nie über &A000 hinausgehen, es 
käme unweigerlich zu einem Absturz. X, Y, Breite und Län¬ 


ge müssen in Textkoordinaten angegeben werden. Wie groß 
der Puffer sein muß, erhält man durch folgende Rechnung: 

Länge des Puffers=8*Breite*Länge 

Beispiel: Durch MEMORY &3fff:| OPEN,1,1,80,25, 

&4000 öffnet man ein Fenster (in diesem Fall der gesamte 

Bildschirm) und mit | CLOSE holt man wieder den alten 

Bildschirminhalt. 

31 CLOSE 

schließt ein durch | OPEN geöffnetes Fenster und holt den 
alten Bildschirminhalt. 

4 | INVERT,X-Textkoordinate,Y-Textkoordinate,Brei¬ 
te (alles in Textkoordinaten) 

invertiert einen Bildschirmbereich an den Textkoordinaten X 
und Y mit der Spaltenbreite Breite. 

Beispiel: Durch | INVERT,1,1,80 wird die erste Zeile in¬ 
vertiert. 

Anmerkung: Alle Befehle sollten nur in Mode 2 angewendet 
werden und nur dann, wenn noch nicht gescrollt wurde. Das 
Programm ist gegen Fehleingaben aus Speicherplatzgründen 
nicht gesichert, es könnte also zum Absturz führen. Deshalb: 
Jedes BASIC-Programm, das RSX-Befehle enthält, vor dem 
Start abspeichern! 

Als Hilfe finden Sie ein Demo-Programm für die RSX-Be¬ 
fehle (Listing 2). Es ist ein kleines Grafik-Programm, mit 
dem Sie einfache geometrische Figuren zeichnen können. 
Mit dem “H“ links oben am Bildschirm kommen Sie wieder 
zum Hauptmenü. 

Die CPC-464-Besitzer müssen in der Demo einige Zeilen än¬ 
dern. Die Änderungen sind im Listing gekennzeichnet. 

Nach dem Abtippen können die Befehle durch folgende Zeile 
installiert werden: 

MEMORY &9FFF: L0AD“C0MF0RT. RSX", &A000: CALL &A000 

Das Programm belegt die Adressen &AOOO-&A39D und hat 
damit eine Länge von 926 Byte. (Markus Felder/cd) 


für 464-664-6128 



XO ******************* [659] 

20 ’* Datalader * [1X72] 

30 ‘* fue r COMFORT.RSX* [1156] 

40 ’* Autor: * [400] 

50 ’* Markus Felder * [814] 

60 ******************* [659] 


70 MODE 2: PR INT"Bi tte warten Sie einen Mom [5152] 
ent...":MEMORY &9FFF:adr=&A000 

80 FOR zei1e=130 TO 900 STEP 10:summe=0:FO [5171] 
R d=1 TO 12 : READ by te$ :by te=VAL ("&"+by te$ ) 


90 POKE adr,byte:adr=adr+l:summe=summe+byt [5314] 
e:NEXT d:READ check$:check=VAL("&"+check$) 

100 IF check < > summe THEN PRINT"Datafeh1er [ 4586] 
in Zei1e"zei1e:END 

110 NEXT zei1e:CLS:PRINT"D1skette einlegen [6529] 
und Taste druecken!":CALL &BB06 
120 SAVE"comfO rt.rsx",b,&AOOO,&39E:END [3485 ] 

130 DATA 01,OE.AO,21,OA,AO,CD,Dl,BC,C9,00, [1658] 
00,49D 

140 DATA 00,00,IC,A0.C3,31,A0.C3,68,Al,C3, [1230] 

E3,5C2 

150 DATA A1,C3,0F,A2,41,52,52,4F,D7,4F,50, [1536] 

45,504 

160 DATA CE,43,4C,4F,53,C5,49.4E,56,45,52, [2225] 

D4,51C 

170 DATA 00,FE,02.CO,DD,6E,00,DD,66,01.22, [2464] 

52,4C3 

180 DATA A2,DD,6E,02,DD,66,03,22,54,A2,21, [2112] 
01,46F 


190 DATA 
CD,784 
200 OATA 
28,739 
210 DATA 
DD,564 
220 DATA 
00,4DC 
230 DATA 
CC,535 
240 DATA 
AO,7D7 
250 DATA 
2A,7B8 
260 DATA 
Fl,5A3 
270 DATA 
Fl , 4E7 
280 DATA 
El,5F2 
290 DATA 
C9,490 
300 DATA 
30,61A 
310 DATA 
2 A,438 
320 DATA 
11,467 
330 DATA 
El,6BD 
340 DATA 
ID,632 
350 DATA 
20,5CE 


01,CD,3F,BB,CD,FF,A0,CD,06,BB,F5, 

19, BD,CD,FF,A0,F1,CD,24,BB,CB,67, 

20, DD,2A,54,A2,2A,4C,A2,DD,75,00, 
74,01,DD,2A,52,A2,2A,4E,A2,DD,75, 
DD,74,01,21,03,14.C3,3F,BB,CB,57. 
9A,AO,CB,5F,CC,B5,AO,CB,4F,CC,CC, 
CB,47,CC,E2,AO.CD.FF.AO,18.B5.F5, 
4C,A2,E5,11,6F,02,ED,52,E1,38,05, 
DD,El, 18,DF, 11,07,00,19,22,4C.A2, 
C9,F5,2A,4C, A2.E5.il, 06,00,ED,52, 
38,37,11,07,00,ED,52,22,4C.A2,Fl, 
F5,2A,4E,A2,E5,11,C5,00,ED,52,E1, 
20,11,03,00,19,22,4E,A2,F1,C9,F5, 
4E,A2,E5,11,0E,00,ED,52,El,38,0A, 
03,00,ED,52,22,4E,A2,F1,C9,F1,DD, 
C3,95,A0,2A,4E,A2,ED,5B,4C,A2,CD, 
BC,79,FE,80,28,37,FE,40,28,38,FE, 


[ 1692 ] 
[1667] 
[ 2201 ] 
[ 2551 ] 
[1539] 
[2980] 
[2805 ] 
[2848] 
[2718] 
[2165] 
[2821] 
[1969] 
[2336] 
[2215] 
[1511] 
[2575] 
[2888] 


Listing COMFORT 


Listing COMFORT 
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Tips & Tricks—i 


360 DATA 28, 

04,43C 

370 DATA 28, 

00,300 

380 DATA C5, 

7C , 5 A1 

390 DATA C6, 
E8.43C 
400 DATA C9, 
11,512 

410 DATA AF,. 
A2,65F 

420 DATA 18,i 
CI , 471 

430 DATA FE,' 
DD,55E 

440 OATA 66,' 
87.4E2 

450 DATA 32, 

6E.56C 

460 DATA 06, 

29,37E 

470 DATA 29, 

A2,3D7 

480 DATA 6F , 

00,422 

490 DATA ED, 

BC,649 

500 OATA 22, 

C5,626 

510 DATA D5, 

7A.4CC 

520 DATA C6, 
CI , 50C 
530 DATA 10, 
ED,690 

540 DATA 4B, 
23,5E3 

550 DATA 13, 

01,400 

560 DATA 50, 

FE,6 7 D 

570 DATA 03, 

29,3AB 

580 DATA 29, 

26,59 D 

590 DATA 00, 

C5,464 

600 DATA CD, 

10,726 

610 DATA F9, 
C9,4D5 
620 DATA 40, 
00, A5 

630 DATA 00, 
00, CO 

640 DATA FO, 

00,4AA 

650 DATA FF, 

00.3B4 

660 DATA 00, 

00,1E0 

670 DATA 60, 

00,255 

680 DATA 7F, 

00,4B6 

690 DATA 01, 

00,159 

700 DATA 00, 

00, C3 

710 DATA 3F, 
00,468 

720 DATA 30, 
00,210 

730 DATA 00, 
00,4E 

740 DATA 1F, 
00,3D2 

750 DATA 1F, 
00,1EF 
760 DATA 00, 
00,30 

770 DATA OF, 

00.2E8 

780 DATA OF, 

00,279 

790 DATA 00, 

00, IE 

Listing COMFORT 


28,39,FE 


3A,FE,08,28,3B,FE, [1692] 


28,3C,FE,02,28,30,11,72,A3,01,03, [1373] 


C5.E5,1A 
C6.08.67 
C9,11,61 


,23,13.0D,20,F8,El, [2505] 
,01,50,CO,09,CI,10, [1664] 
, DF,11,88,A2,18,DA, [2649] 


AF,A2,18,D5,11.D6.A2,18,DO, 11, FD, [2232] 


18.CB.il, 
FE,05,CO, 
66 , 01 , 22 , 


, 18,C6,11,4B,A3,18 , [2214] 
, 32,60,A2,DD,6E,00, [1771] 
,DD,6E,02,7D,87,87, [2137] 


32,57,A2,DD,6E,04,7D,32,56,A2,DD, [2500] 
06,7D,32,5C,A2,DD,6E,08,26,00,29, [2747] 
29,11,08,00,ED,52,22,5A,A2,3A,5C, [2480] 


6 F, 26 , 00 , 
ED,52,22 
22,5E,A2 


, 29,ED,52,E8,21,C7, [ 1789] 
,ED,5B,5A,A2,CD,ID, [2767] 
, 56,A2,EB,2A,58,A2. [2378] 


D5,1A,77,AF,12,23,13,0D,20,F7,D1, [1910] 


C6,08,57, 
10,E5,C9 , 
4B.56,A2, 
13,00,20, 
50,CO,09, 
03,CO,DD, 

29, EB,21, 
00,29,29, 
CD,1D,BC, 
F9.C1.E1, 
40,01,64, 
00,00,00, 
F 0,00,00, 
FF , FO , 00, 
00,CO,00, 
60,00,00, 
7F,EO.OO, 
01,80,00, 
00,18,00, 
3F,CO,00i 

30, CO,00, 
00,0C,00, 
1F,80,00, 
1F,EO.OO, 
00,18,00, 
OF,00,00 
OF,FF,00 
00,OC,00 


,01,50,CO,EB,09,EB, [2870] 
,A2,B7,C8,2A,5E,A2, [1863] 

,58,A2,C5,E5,1A,77, [2430] 
,7C,C6,08,67,30,04, [1569] 

,E9,AF,32,60,A2,C9, [2163] 
,DD,6E,02,26,00,29, [2683] 
,ED,52,E5,DD,6E,04, [2653] 

,08.00,ED,52,EB,El, [2202] 
,C5.7E.EE,FF,77,23, [1034] 
,08,19,38,02,18,EO, [2931] 
,00,00,00,00,00,00, [2542] 
,00,00,00,00,CO,00, [1946] 
.00,FF,00,00,FF,CO, [2676] 
,00,C3,00,00,03,00, [1641] 

,00,00,30,00,00,30, [2340] 

,00,7E,00,00,7F,80, [1921] 

,00,7F,80,00,61,80, [1294] 
,00,00,60,00,00,18, [2168] 
i,00,3C,00,00,3F,00, [2950] 
',00,3F,FC,00,3F,C0, [2657] 

1,00,00,30,00,00,30, [1410] 
:,00,18,00,00,IE,00, [2685] 
I , 00,1F,F8,00,1F , FE , [ 1248] 
1,00,00,60,00,00,18, [1815] 
i, 00,00,06,00,OC,00, [2596] 
l,00,OF,FO,00,OF,FC, [889] 

I,00,OC,30,00,00,30, [2626] 

:,00,00,03,00,00.03, [1943] 


Sesam 

öffne 

dich! 


BCin 

DisAsm« 

Intelligenter Disassembler Version 1.0 


BCi DisAsm erschließt 
jedes Programm! 

Wandelt den Hexdump in ein 
dokumentiertes Assemblerlisting um 
und kann nach Modifizierung oder Änderung durch 
einen Editor mit gängigen Assemblern oder Debug¬ 
gern wieder assembliert werden. 

BCi DisAsm - Es gibt kaum einen, der ihm das Was¬ 
ser reichen kann! 

Auch Experten kennen nicht immer die Lösung, aber sie wissen, wo sie su¬ 
chen müssen. 

BCi DisAsm hilft JEDEM, die verwirrenden und frustrierenden Software- 
Puzzle, welche sich beim Umgang mit dem Computer ergeben, zu lösen. 
Und zwar schneller als mit jedem anderen Produkt, das Sie erwerben kön¬ 
nen, egal welche Preisklasse Sie betrachten. 

Mit dem BCi DisAsm erwerben Sie Know-How, das Sie sonst Jahre an Er¬ 
fahrung kosten würde. Versuchen Sie nicht, das Rad neu zu erfinden! 
BCi DisAsm - Der intelligente Disassembler 
BCi DisAsm ist ein intelligenter, selbsttätig dokumentierender MS-DOS 
Disassembler. Die ausgefeilten Routinen im BCi DisAsm analysieren in kür¬ 
zester Zeit selbst komplexen und umfangreichen Programmcode und zei¬ 
gen dabei potentielle Problempunkte auf. 

BCi DisAsm - Das Lernmittel 

Sie brauchen kein Spezialist in Assembler-Programmierung zu sein. BCi 
DisAsm produziert aus jedem beliebigen Programm ihres IBM-kompatiblen 
Computers ein gut dokumentiertes, leicht verständliches Assemblerlisting. 

BCi DisAsm - Einfach in der Handhabung 

BCi DisAsm kann sowohl über Parameter von der DOS-Kommandozeile aus 
als auch interaktiv über Menüs gesteuert werden. Die Menüstruktur ist 
Lotus-kompatibel, selbstverständlich in Deutsch. Es besteht keine Notwen¬ 
digkeit, neue Befehle zu lernen oder ständig im Handbuch nachzuschla¬ 
gen. BCi DisAsm ist unmittelbar anwendbar! 

Minimale Systemanforderungen 

256 kB RAM, 8088/8086/80186/80286 oder 80386 CPU, MS-DOS oder PC¬ 
DOS Version 2.0 oder größer 

BCi DisAsm wird Ihnen bei den folgenden 
Schritten helfen: 

1. Lernen Sie Assembler-Programmierung, wenn Sie 
möchten. 

2. Entdecken Sie, warum Programm XYZ auf ihrem Rech¬ 
ner nicht läuft, und tun Sie etwas dagegen. 

3. Ändern oder entfernen Sie Programmteile. 

4. Sichern Sie sich gegen destruktive Programme ab. Fin¬ 
den Sie einen “Virus“, und entfernen Sie ihn. 

5. Integrieren Sie Code aus compilierten Programmen in ei¬ 
gene Anwendungen. 

6. Erhöhen Sie die Kompatibilität Ihrer Software. 

7. Passen Sie Software an verschiedene MS-DOS- 
Versionen an. 

® 1987 BCI, West Germany und USA 

Lotus ist eingetragenes Warenzeichen der Lotus Corp. 

MS-DOS ist eingetragenes Warenzeichen der Microsoft Corp. 

BCi DisAsm kostet inkl. eines sehr ausführlichen deutschen 
Handbuchs (mehr als 100 Seiten) nur 
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199,- DM unverbindliche Preisempfehlung 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 
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Einzelpreis 199,- DM Einzelpreis 199,- DM 

zzgl. Versandkosten 4, - DM zzgl. Versandkosten 6, - DM 


Endpreis 203, - DM Endpreis 205, - DM 


Bestellen Sie noch heute mittels der 
entsprechenden Bestellkarte bei: 

DMV-Verlag 

Postfach 250 ■ 3440 Eschwege 
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I—Tips & Tricks 


800 

DATA 

06 , 

, 00, 

, 00 

, 07 , 

80 

, 00 , 

, 07 , 

EO , 

00, 

,07 

, F 8 , 

[ 1904 

] 

00 , 

273 














810 

DATA 

07, 

, FE, 

, 00 

, 07 , 

FF , 

, 80 , 

,07, 

F 8 , 

00, 

, 06 

, 18 , 

[ 2478 

] 

00, 

3A8 














820 

DATA 

00. 

, 18 , 

, 00 

,00, 

06 

, 00 , 

,00. 

06, 

00 , 

, 00 

,01 , 

[2316 

] 

80, 

A5 














830 

DATA 

00, 

, 01 , 

, 80 

, 03 , 

00 , 

, 00 , 

, 03 , 

CO , 

00 , 

, 03 , 

, FO , 

[1377 

] 

00. 

23A 














840 

DATA 

03 , 

, FC, 

, 00 

, 03 , 

FF , 

,00, 

,03, 

FF , 

CO , 

, 03 , 

, FC, 

[ 1361 

] 

00, 

4C2 














850 

DATA 

03 , 

, oc, 

, 00 

, 00 , 

oc, 

o 

o 

, 00, 

03 , 

00, 

, 00 , 

, 03 , 

[2213 

] 

00, 

21 














860 

DATA 

00, 

, 00, 

o 

o 

,00, 

00 , 

, CO , 

, 01 , 

80 , 

00, 

,01, 

, EO , 

[1861 

] 

00, 

2E2 














870 

DATA 

01 , 

, F 8 , 

,00, 

,01 , 

FE , 

, 00 , 

, 01 , 

FF , 

80 , 

01 , 

, FF , 

[2313 

] 

EO , 

558 














880 

DATA 

01 , 

, FE , 

00, 

, 01 , 

86 , 

o 

o 

,00, 

06 , 

00 , 

00 I 

, 01 , 

[2648 

] 

80, 

20D 














890 

DATA 

00, 

,01 , 

80, 

,00, 

00, 

,60, 

, 00 , 

00 , 

60, 

00 , 

, 13 , 

[2206 

] 

00, 

154 














900 

DATA 

68 , 

03 , 

00, 

00, 

00 , 

,00, 

00 , 

00 , 

00 , 

00 , 

, 00 , 

[2087 

] 


00,066 


10 ****************** 

20 ’* MICRO-PAINTER * 

30 ' * Demo zu * 

40 '* COMFORT.RSX * 

50 '* Autor: * 

60 '* Markus Felder * 

70 '***************** 

80 IF PEEK(&A000)< >1 THEN MEMORY &4FFF:LOA 
D" comfort.rsx",&A000:CALL &A000 
90 MODE 2-.DEFINT a-z:x=0:y=0:farbe=1:ORIGl 
N 0,0 

100 m$=CHR$(24)+" PUNKT LINIE KREIS DR 
EIECK VIERECK STERN FARBE LADEN SPEIC 
HERN ENDE ”+CHR$(24) 1 m$=Menue1eiste 
110 'Hauptprogramm *********** 

120 IOPEN,1,1,80,1,&5000:LOCATE 1,1:PRINT 
m$ 'Menuei eiste 

130 !ARROW, @x,@y:DEF FNx=x\8+1:DEF FNy=26- 

( y\8+1):x = FNx:y = FNy 'x- und y-Koordinaten 

des Pfeils in Textkoordinaten umwandeln 

140 IF y<>l THEN 130 

150 IF x > 2 AND x < 8 THEN 270 'Punkt 

160 IF x > 9 AND x<15 THEN 310 'Linie 

170 IF x >16 AND x<22 THEN 370 'Kreis 

180 IF x > 2 3 AND x<31 THEN 460 'Dreieck 

190 IF x > 32 AND x<40 THEN 550 'Viereck 

200 IF x > 41 AND x<47 THEN 620 'Stern 

210 IF x > 48 AND x<54 THEN FOR w=l TO 5:!IN 

VERT,49,1,5:FOR p=l TO 80:NEXT:;INVERT,49, 

l,5:FOR p=1 TO 80:NEXT p,w:farbe=(farbe XO 

R &FF)-254:GOTO 130 'Farbe aendern 

220 IF x > 5 5 AND x<61 THEN 690 'Laden 

230 IF x > 62 AND x<72 THEN 750 'Speichern 

240 IF x > 73 AND x<78 THEN 810 'Ende 

250 GOTO 130 

260 'Punkte setzen ****** 

270 FOR w=l TO 5:!INVERT,3,1,5:FOR p=l TO 
80:NEXT:JINVERT.3,1.5:FOR p=l TO 80:NEXT p 
,w 'Menueieiste kurz blinken 
280 !CLOSE:GOSUB 920:|ARROW,@x,@y:IF FNx=l 
AND FNy=1 THEN !CLOSE:GOTO 120 
290 PLOT x , y*2:GOTO 280 
300 'Linie ****** 

310 FOR w=l TO 5:!INVERT,10,1,5:FOR p=l TO 
80:NEXT:;INVERT,10,1,5:FOR p=l TO 80:NEXT 
p,w 'Menueieiste kurz blinken 
320 !CLOSE:GOSUB 920 

330 !ARROW, @x,@y:IF FNx=l AND FNy=1 THEN ! 
CLOSE:G0T0 120 

340 MOVE x,y*2: !ARROW,@x,@y: IF FNx=l AND F 
Ny=1 THEN !CLOSE:GOTO 120 
350 DRAW x,y*2,färbe:GOTO 330 
360 'Kreis ******** 

370 FOR w—1 TO 5:!INVERT,17,1,5::FOR p=l T 
0 80:NEXT:!INVERT,17,1,5:FOR p=l TO 80:NEX 
T p,w 'Menueieiste kurz blinken 
380 DEG:JCL0SE:G0SUB 920 

390 ! ARROW,@x,@y:IF FNx=l AND FNy = 1 THEN ) 
CLOSE:GOTO 120 
400 xx=x:yy=y 

410 !ARROW,@x,@y:IF FNx=l AND FNy=1 THEN \ 
CLOSEtGOTO 120 

Llsting COMFORT 


[ 670] 

[ 1440 ] 
[ 198] 
[965] 

[ 400] 
[814] 

[ 670] 
[3877] 

[ 3858 ] 

[ 6122 ] 


[ 1641 ] 
[4671 ] 

[7620] 


[855] 

[ 1110 ] 

[1701] 

[1761] 

[ 1847 ] 

[ 1558] 
[2268] 

[10712] 


[1910] 
[3402 ] 
[2639 ] 
[371] 
[841] 

[ 6755 ] 


[4516 ] 

[ 1240 ] 
[ 1120 ] 
[6468 ] 


[ 1405 ] 
[ 4055 ] 

[2767] 

[974] 

[534] 

[ 6300 ] 


[ 1580 ] 
[ 4055 ] 

[838] 

[4055] 


420 b=ABS(yy-y):c=A8S(xx-x):r=SQR(b~2)+SQR 
(c* 2 ):ORIGIN xx,yy*2 

430 MOVE r,0,färbe:FOR w=0 TO 360 STEP 2:D 

RAW r»COS(w),r*SIN(w):NEXT:ORIGIN 0,0:REM 

CPC 464 MOVE r,0 

440 GOTO 390 

450 'Dreieck ****** 

460 FOR w=l TO 5:!INVERT,24,1,7:FOR p=l TO 
80:NEXT:JINVERT.24,1,7:FOR p=l TO 80:NEXT 
p.w 'Menueieiste kurz blinken 
470 !CLOSE:GOSUB 920 

480 !ARROW,0x,@y:IF FNx=l AND FNy=1 THEN | 
CLOSE:GOTO 120 

490 xx = x:yy = y: J ARROW, @x,@y:IF FNx=l AND FN 
y=1 THEN 120 

500 MOVE xx,yy*2,farbe:DRAW x , y*2:xxx = x:yy 
y=y:REM CPC 464 MOVE xx,yy*2 
510 [ARROW,@x,@y:IF FNx=l AND FNy=1 THEN [ 
CLOSE:GOTO 120 

520 MOVE xx , yy* 2:DRAW x,y*2:MOVE xxx,yyy*2 
530 DRAW x,y*2:GOTO 480 
540 'Viereck ******* 

550 FOR w=l TO 5:!INVERT,33,1,7:FOR p=l TO 
80:NEXT:[INVERT,33,1,7:FOR p=l TO 80:NEXT 
p,w 'Menueleiste kurz blinken 
560 [CLOSE:GOSUB 920 

570 [ARROW,@x,@y:IF FNx=l AND FNy =1 THEN [ 
CLOSE:GOTO 120 

580 xx=x:yy=y:[ARROW,0x,@y:IF FNx=l AND FN 
y=1 THEN 120 

590 MOVE xx,yy*2,färbe:DRAW x,yy*2:DRAW x, 

y*2:DRAW xx,y*2:DRAW xx,yy*2:REM CPC 464 M 

OVE xx,yy*2 

600 GOTO 570 

610 'Stern ************ 

620 FOR w=l TO 5:[INVERT,42,1,5:FOR p=l TO 
80:NEXT:[INVERT,42,1,5:FOR p=l TO 80:NEXT 
p,w 'Menueleiste kurz blinken 
630 [CLOSE:GOSUB 920 

640 !ARROW,@x,@y:IF FNx=l AND FNy= 1 THEN [ 
CLOSE:GOTO 120 
650 xx = x:yy = y 

660 [ARROW,@x,@y:IF FNx=l AND FNy=1 THEN [ 
CLOSE:GOTO 120 

670 MOVE xx,yy*2,färbe:DRAW x,y*2:GOTO 660 
:REM CPC 464 MOVE xx,yy*2 
680 'Laden *********** 

690 FOR w=l TO 5:[INVERT,56,1,5:FOR p=l TO 
80:NEXT:[INVERT,56,1.5:FOR p=l TO 80:NEXT 
p,w ‘Menueleiste kurz blinken 
700 ICLOSE:[OPEN,1,1,80,25,&5000 
710 CAT:PRINT:INPUT"Welches Bild soll gela 
den werden? ",a$ 

720 IF a$="" THEN [CLOSE:GOTO 120 
730 MODE 2:LOAD a$,&C000:GOTO 120 
740 'Speichern ******** 

750 FOR w=l TO 5:[INVERT,63,1,9:FOR p=l TO 
80:NEXT:[INVERT,63,1.9:FOR p=1 TO 80:NEXT 
p,w Menueleiste kurz blinken 
760 !CLOSE:[OPEN,20,12,40,1,&5000:WINDOW 2 
0,60,12,12 

770 LOCATE 1 , 1: INPUT"Bi 1 dname : " , a$ : IF a$='' 
" THEN WINOOW 1,80,1,25: [CLOSE:GOTO 120 
780 IF LEN(a$)>12 THEN PRINT CHR$(7);:GOTO 
770 

790 WINDOW 1,80,1,25:[CLOSE:SAVE a$,b,&C00 
0,&4000:GOTO 120 
800 'Ende ****** 

810 FOR w=1 TO 5:[INVERT,74,1,4:FOR p=l TO 
80:NEXT:[INVERT,74,1,4:FOR p=l TO 80:NEXT 
p.w 'Menueleiste kurz blinken 
820 !CLOSE:!OPEN,10,8,60,6,&5000 
830 FOR 1=0 TO 3:PLOT 72+i* 4,286-i*2, 1:DRA 
WR 466,0:DRAWR 0,-88:DRAWR -466,0:DRAWR 0, 
88:NEXT 

840 LOCATE 12,10:PRINT"So 11 Programm beend 
et werden? JA NEIN" 

850 [ARROW,@x,@y:x=FNx:y=FNy:IF y<>10 THEN 
850 

860 IF x > 48 AND x<51 THEN MOOE 2:END 

870 IF x > 59 AND x<64 THEN [CLOSE:GOTO 120 

880 GOTO 850 

890 'Tastaturabfrage 

900 a$ = LOWER$(INKEY$) :IF a$="" THEN 900 EL 
SE RETURN 

910 'Zeichen fuer Hauptmenue 

920 [OPEN,1,1,1,1,&5000:LOCATE 1,1:PRINT"H 

":[INVERT,1,1,1:RETURN 
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[ 5074 ] I 
[ 5241 ] 


[494 ] 

[ 977 ] 
[8511 ] 


[1405] 
[4055] 

[ 3489 ] 

[3636] 

[ 4055 ] 

[2907] 
[308] 

[ 765 ] 
[6912] 


[ 1405 ] 
[4055 ] 

[3489] 

[4558] 


[379 ] 

[ 1414 ] 
[7632] 


[ 1405 ] 
[ 4055 ] 

[838] 

[ 4055 ] 

[2785] 

[969] 

[7240] 


[1915] 
[3407] 

[969 ] 

[ 2019 ] 
[828 ] 

[ 5939 ] 


[2953] 

[ 4681 ] 

[2133] 

[ 3501 ] 

[850] 

[5641] 


[2033] 

[5656] 


[4164] 

[3956] 

[1839] 
[2385] 
[ 330] 

[1058] 
[2072 ] 

[ 2094 ] 
[5838] 


60 PC 8’89 




PC-ANGEBOT 



ULTRA PACK 
für nur 50,-DM 


erhalten Sie das ultimative Angebot! 



alle 12 Ausgaben von PC Amstrad/Schneider Int. 
des Jahrgangs 1987 

■+- 3 Ausgaben von PC International des Jahres 
1986 aus unseren Restbeständen 

+ 2 Sammelordner zum Archivieren 

Bitte benutzen Sie die Besteilkarte. 

DMV-Verlag - Postfach 250 - 3440 Eschwege 








r"JOYCE 


LocoFile 

Die neue Version für LocoScript 2.xx im Test 

Der Filius von LocoScript 2.16 entpuppt sich schon nach dem ersten Kon¬ 
takt als ausgereiftes und lang erwartetes Mitglied der Loco-Familie. Schon 
die Installation, ohne die LocoFile nichts macht, bringt dem stolzen Besitzer 
einer LocoScript 2.xx-Version ein umfangreiches Update auf die Version 
2.24 (beziehungsweise 2.26). Und sofort nach dem nächsten Warmstart 
steht nun nicht mehr nur eine Textverarbeitung zur Verfügung, sondern 
auch ein ausgereiftes und völlig im Textverarbeitungsprogramm LocoScript 
integriertes Datenbanksystem LocoFile. 


Alle Joyce PCW User, die von der ver¬ 
trauten LocoScript-Version, die Sie 
mit Ihrem Gerät mitgekauft haben, auf 
die Version 2.xx aufgestiegen sind, ha¬ 
ben die enormen Verbesserungen und 
Ergänzungen von LocoScript 2.xx 
schätzen gelernt. Sogar beim Forma¬ 
tieren einer Diskette ist der Wechsel zu 
CP/M Plus nun unnötig. 

Nun ist aber die Textverarbeitung auf 
dem Computer nicht die einzige Tätig¬ 
keit für einen Joyce-User. Mindestens 
genauso wichtig ist die Verwaltung ei¬ 
ner Datenbank. Wer aber bisher seine 
Datensätze und LocoScript unter einen 
Hut bringen wollte, war nicht nur ge¬ 
zwungen, zwischen verschiedenen 
Programmen, sondern auch zwischen 
verschiedenen Betriebssystemen hin- 
und herzuwechseln. Und selbst dann 
war die Kompatibilität oder besser die 
Zusammenarbeit beider Programme 
bezüglich der Daten nicht garantiert. 
Aus dieser Isolation wird nun Loco¬ 
Script mit Hilfe von LocoFile befreit. 

Fl - Aktion 

Unter diesem Menüpunkt verbirgt sich 
der Schlüssel zum Ausweg aus der Iso¬ 
lation als reine Textverarbeitung: 


’LocoFile starten’, 'Datei erstellen' 
und 'Datei komprimieren’ sind die 
neuen Funktionen, die sofort nach Auf¬ 
ruf dieser Funktion zur Verfügung 
stehen. 


Die Erstellung und Bddienungist denk¬ 
bar einfach, problemlos und für jeden 
in wenigen Minuten zu erlernen. Was 
bisher vielleicht noch auf Karteikarten 
verwaltet werden mußte, kann nun 
spielend durch LocoFile erledigt wer¬ 
den. In bewährter Loco-Manier wer¬ 
den alle Kommandos durch Pulldown- 
Menüs und entsprechenden Tasten¬ 
druck an das Programm übergeben, 
Texteingaben erfolgen ebenfalls über 
Bildschirmfenster, und die Karteikarte 
gibt es noch immer. Bloß erscheint sie 
nun am Bildschirm im gewählten 
Ausmaß. 


Alle Routineaufgaben wie Umbenen¬ 
nen, Kopieren, Löschen und Versetzen 
von Dateien werden weiterhin unver¬ 
ändert erledigt. Sogar das gewohnte 
Textinfo steht für Datendateien zur 
Verfügung. Die Namensgebung ist im 
Rahmen der Einschränkungen von Lo¬ 
coScript ebenfalls frei möglich. 
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Abb.l: Eine selbst 
erstellte Adreßkartei 


LocoFilius kann mehr 

Was kann ein Datenbankprogramm im 
Rahmen eines Textverarbeitungspro¬ 
gramms nun leisten? Nicht nur viel, 
sondern sehr viel! Und zwar: 

— Bildschirmdarstellung der Karte 
(Pro Karte ein Datensatz) 

— Kartenbreite bis 80 Zeichen 

— Kartenlänge bis 99 Zeilen 

— bis zu 50 Felder pro Karte 

— Feldname auf Kartei frei positio¬ 
nierbar 

— Form, Größe und Position der Fel¬ 
der auf der Karte f ei wählbar 

— Blättern durch die Kartei 

— Suchen nach einer bestimmten Karte 

— freies Editieren der Karten am Bild¬ 
schirm 

— COPY/EINBL/AUSBL von Feldern 
aus Karten und zwischen Karten 
und LocoScript-Dokumenten 

— Ausgabe der Karten' am Drucker 

— Ausdruck eines 'Kartenextraktes ’ 

— Sortieren der Karten nach bis zu 50 
frei wählbaren Indizes und 30 Zei¬ 
chen Schlüssellänge 

— Sortieren nach Alphabet, Zahlen 
oder Datum 

— Alphabetische Ordnung wählbar 
zwischen Standard, skandinavi¬ 
scher und kyrillischer Reihung 

— Datenaustausch mit LocoMail 

— Datenaustausch auf ASCII-Basis mit 
anderen Datenbanken 

und so weiter. 

Die Anzahl der Datendateien ist natür¬ 
lich beliebig, die Größe der Dateien bis 
maximal 8192 kByte erlaubt und Loco¬ 
File zudem festplattentauglich. 

Was brauch’ i des? 

Die wienerische Frage des Herrn Karl 
lautet in korrektem Deutsch 'Wozu 
brauche ich das?’ und stellt sich für je¬ 
den, der einen Joyce PCW hat, wenn 
ein neues Programm auf den Markt 
kommt. Für LocoFile ist die Frage 
leicht zu beantworten: Von der Adreß- 
verwaltung, Literaturkartei und Arti¬ 
kelliste bis zur Sammlung der Compu¬ 
terprogramme, Kochrezepte oder Wit¬ 
ze läßt sich alles leicht und komfortabel 
mit LocoFile verwalten. Wer all das 
nicht benötigt, kann LocoFile immer 
noch als Zettelkasten und Notizbrett 
einsetzen, zumal es auch mitten aus der 
Bearbeitung eines Schriftstückes her¬ 
aus aufgerufen werden kann und den 
kreativen Fluß der Gedanken nicht 
durch einen Programmwechsel unter¬ 
bricht. Im Handbuch, das in Kürze 
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Abb.2: Auch eine Datei fiir Kochrezepte läßt sich ohne weiteres verarbeiten 



Abb.3: Der selbsterstellte Terminkalender läßt sich direkt von der Textver¬ 
arbeitung aus aufrufen 


auch in einer deutschen Fassung vorlie¬ 
gen wird, werden noch weitere An¬ 
wendungsbeispiele vorgestellt, die 
auch auf der Diskette mitgeliefert 
werden. 

Beurteilung 

Für Besitzer von LocoScript 2.xx ist 
LocoFile eine sinnvolle und praktische 
Ergänzung, welche weder in bezug auf 


Bedienungsfreundlichkeit noch in be¬ 
zug auf Verarbeitungsgeschwindigkeit 
einen Vergleich mit Datenbanken, die 
unter CP/M laufen, zu scheuen 
braucht. 

Als Manko empfunden wurde, daß kei¬ 
ne Möglichkeit vorgesehen ist, arith¬ 
metische Operationen durchzuführen. 
Wer darauf verzichten kann, dem ist 
LocoFile uneingeschränkt zu empfeh¬ 
len, obwohl der Preis von 168,- DM 


in Anbetracht der freundschaftlichen 
Beziehung der Joyce PCW User zur 
(Software-) Familie LOCOx aus dem 
Hause Locomotive eine Kaufentschei¬ 
dung nicht unbedingt erleichtert. 


Sollten Sie Interesse an diesem Programm oder noch 
einige Fragen haben, wenden Sie sich bitte an die Fir¬ 
ma Wiedmann. Korbiniansplatz 2, 8045 Ismaning bei 
München. 


(Herbert Moschitz/rs) 


FIBUPLAN - Buchführung für 
PC, JOYCE oder CPC 

Einfaches Buchführungsprogramm auf der Basis einer doppelten Buchfüh¬ 
rung. FIBUPLAN ist menuegesteuert und besitzt übersichtliche Eingabemas¬ 
ken zum Aufbau einer EDV-unterstützten Buchhaltung. 

C 60 definierbare Konten (PC 80), 4-stellige Nummern 
c Kontenplan anzeigen, Kontostand errechnen 
o Ausdruck von Grundbuch und Kontenblättern 
o bequem mit einem Laufwerk zu nutzen 

O FIBUPLAN Diskette und Anleitung nur 148,- DM 

Versand p. Vorkasse (portofrei), Nachnahme (zzgl. 5 DM) 

Fordern Sie jetzt unser aktuelles Info an (bitte Computertyp angeben). 

VAN DER ZALM-SOFTWARE 

Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 0 44 61/55 24 



EMIme 

LKoScript 2.26 
24 Pin Driver 
LKoFontl024 
LKoSpell 
LocoHail 
LocoFile 
LocoKey t 

U ' W J 


HERDER 


NACHRICHTENTECHNIK 


./ BRANFELDER CH.21S 
W/i// Hfltö HÄNBURG 71 
/// 11L.: 040-6411773 
" FUX: 040-641 17 76 


Diskettenlaufwerke 

Anschlußfertige Qualitätslaufwerke von TEAC, 
2*80 Spuren, 1 MB unformatiert. 1 Jahr Garantie ! 


EURO PC 


720 KB, 3.5" 249.- 

360/720 KB, 5.25” 298.- 


726 KB, 3.5" 249.- 
726 KB, 525" 348.- 

MsCoov (ermöglicht Lesen/Schreiben von MsDos) 49.- 


JOYCE 

*py 

40/80 Tr. Umschaltung für 5.25” und MsCopy 


20 .- 


CPC 


830 KB, 3.5" 298.- 
830 KB, 5.25" 348.- 

Zweitlaufwerke mit 830 KB formatierter Kapazität unter CP/M, 360 KB 
unter Amsdos bzw. BASIC. Lieferung umfasst ein komplett anschlußfer¬ 
tiges Diskettenlaufwerk inkl. der Programme DiskPara und MsCopy. 


DiskPara 


für alle CPC’s 79.- 

Treiberprogramm zur Erhöhung der 
Diskettenkapazität. Ermöglicht je nach Laufwerkstyp Kapazitäten bis 
830 KB unter CP/M. Vollkompatibel läuft z.B. mit: Turbo Pascal, 
DBase und Wordstar. Getestet in Schneider Aktiv 5/87, c't 5/87, PC 
Int. 6/87, CPC Magazin 4/87, Happy Computer 4/87, 8. M&T Sonderheft 


pr"1512 720 KB, 3.5" 

1640 360 KB, 5 25 

Festplattenkit 30 MB: 648.- 42 MB : 

249.- 

159.- 

748.- 

Frank Strauß Elektronik 


Schmiedstr.11 6750 Kaiserslautern Tel.(0631)67096-98 

Bitte bei Bestellungen genaue Systemkonfiguration angeben. 
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Rechnen ohne Umweg 

Ein Minitaschenrechner unter CP/M 

In BASIC ist es kein Problem, Rechenaufgaben zu lösen. Was aber machen 
Sie, wenn Sie sich in CP/M Plus befinden und das umständliche Wechseln 
zwischen CP/M und BASIC umgehen wollen? 

Wahrscheinlich greifen Sie zu ihrem Taschenrechner. Schneller und einfa¬ 
cher geht es mit unserem Programm Minihex. 


Um nicht immer erst in BASIC gehen 
zu müssen, um das eine oder andere 
auszurechnen, bieten wir Ihnen die 
Möglichkeit, einen Taschenrechner 
unter CP/M zu betreiben. 

Neben den normalen Rechenarten wie 
Addition, Subtraktion, Multiplikation 
und Division kann dieses Programm je¬ 
doch noch einiges mehr. Das gleichzei¬ 
tige Rechnen mit dezimalen und hexa¬ 


dezimalen Zahlen bereitet gleichfalls 
keine Probleme. 

Gemischtes Rechnen 

Benötigen Sie zum Beispiel das Ergeb¬ 
nis von C8H dividiert durch fünf, soll¬ 
ten Sie folgendes eingeben: 

C8H/ # 5 

Das Gatter (#) kennzeichnet in obiger 
Rechnung die dezimale Zahl 5. 


Kurzinfo: 

Das Programm kann Zahlen im Be¬ 
reich von 0 bis FFFFH, beziehungs¬ 
weise 65535 dezimal verarbeiten. 
Es beherrscht die vier Grundrechen¬ 
arten. 

Eingabesyntax 


Rechenart 

HEX 

DEZ 

Gemischt 

Addition 

80+02 

#128+ #02 

80+#02 

Subtraktion 

80-02 

#128-#02 

80-#02 

Multiplika¬ 

tion 

80*02 

# 128* # 02 

80* #02 

Division 

80/02 

# 128/#02 

80/#02 


(Dieter Osterloh/rs) 


Dieses Programm ist in Assembler geschrieben. Nach dem Ein¬ 
gehen in einen Texteditor sollte es zuerst unter dem Namen Ml- 
NIHEX.ASM abgespeichert werden. Nun wird es mittels der 
Dienstprogramme RMAC. COM utul LINK. COM, die sich auf 
der milgelieferten Systemdiskette ISeite 3) befinden, in eine 
COMmando-Datei umgewandelt. Später kann es dann unter 
CP/M A> MINIHEX < RETURN> aufgerufen werden. Der 
Databox können Sie neben dem Quelltext auch die lauffähige 
COMmando-Datei entnehmen. Da das Listing sehr gut kommen¬ 
tiert ist. wurde in dem Text nur auf die Funktionen, nicht aber 
auf die Programmierung eingegangen. Etwaige Fragen können 
so anhand des Listings beantwortet werden. 


*********************************************** 
* * 

* MINIHEX - Kleiner Hexrechner (0 bis FFFF) * 

* * 

* Version 1.1 vom 10/04/89 fuer Joyce u. a.* 

* * 

* geschrieben 1988 von Dieter Osterloh, * 

* * 
*********************************************** 


Besondere Abkuerzungen im Kommentar: 


Ad r 

= Adresse Mrk 


= Markierung 

EStr 

= Eingabestring Op 


= Operand 

MPD 

= Multiplikand Res 


= Resultat 

MPR 

= Multlpl1kator 



bdos 

= 0005h 



bdos09 

= 9 


St ringausgabe 

bdosIO 

= 10 


Stringeingabe 

ength2 

= 2 


Laenge 

start: 





1 d (stack),sp 


Stapel sichern 


ld de,prgtxt 


Programmkopf 


cal1 pstring 


ausgeben 


jp InputI 


--> Eingabe 


Programmkopf, Ein- und 

Ausgabetext - 


db 'Letzte Aenderung: 10/04/89' 

prgtxt 

db OAh.ODh,'MINIHEX - 

' 



db Kleiner Hexrechner 

VI.1',OAh.ODh 


db ' (c) 1988 

by D. Osterloh 1 


db 0Ah,ODh,' 

Hilfe mit <?>' 

1ntxt: 

db OAh,OAh.ODh,'MiniHex 


$• 

outtxt: 

db OAh.ODh,'Resultat: 

$ 


' 




> 




resout 





1d (result),hl 


Res speichern 


ld de,outtxt 


Ausgabetext 


cal1 pstring 


ausgeben 


cal1 ascii out 


Res in ASCII 


ret 


ausgeben 

output 





cal1 resout 


—> ResAusgabe 


;-Eingabe 


1nput: 

ld 

sp,(stack) 

; Stapel setzen 


ld 

de,intxt 

; Eingabetext 


cal 1 

pstring 

; ausgeben 


Listing MINIHEX 


inputl: 


ld 

c,bdosIO 

Eingabest ring 

ld 

de,1nbu f 

ln Puffer 

cal 1 

bdos 

schreiben 

Test: 

Programmende oder Hilfe - 

ld 

hl,inbufL 

ESt i— Laenge 

xo r 

a 

testen 

cp 

(hl ) 

wenn 0, dann 

JP 

z,0000h 

Prog rammende 

1 nc 

hl 

1. Zeichen des 

ld 

a,(hl ) 

EStr testen 

cp 

. , . 

wenn ?, dann 

jp 

z , he 1 p 

UP Hl 1fe 

ld 

d e,output 

Ruecksprungad r 

push 

de 

be re 1tste11en 

Test: 

Arithmetik oder Konvertierung - 

ld 

e, 1 

DE= EStrBeglnn 

ld 

d, h 


dec 

hl 

HL= EStrLaenge 

ld 

b, (hl ) 

als Zaehler 

1 nc 

hl 


ld 

a,(hl ) 

EStr auf 

cp 

1 -' 

Operator 

JP 

z.arithm 

testen 

cp 

' * 1 


jp 

cp 
jp 
cp 
jP 
d jnz 

Konve 

ex 

z,arithm 

V 

z , a r i t hm 
' + ' 

z,ar1thm 
test 


de , hl 

HL= EStrBeginn 

1 d 

a,(hl ) 

1. Zehn laden 

dec 

hl 

auf EStrLaenge 


' * ' 

wenn 4, dann 

jr 

z,dec_hexl 

UP Dez —> Hex 

ld 

c, (hl ) 

BC = Laenge 

cal 1 

copy 

HexZahl um¬ 
wandel n 



ld 

c, e 

Res (DE) nach 

ld 

b, d 

BC (=D1vid end) 

ld 

hl.marker 

Dezimal zahl 
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decl: 


hex 1: 


Id 

(hl), '0 * 

markieren 

push 

hl 

MrkAdr sichern 

push 

hl 

ResAdr sichern 

ld 

de , 10 

Divisor 

cal 1 

di vl 

Division /10 

ld 

a , 1 

Rest zu ASCII- 

add 

a , ' 0 ' 

Dezimal machen 

pop 

hl 


dec 

hl 

und 

ld 

(hl),a 

spei chern 

ld 

a, b 

Quotien t = 0 

or 

c 

testen 

jr 

nz,decl 

bei > 0 weiter 
Res ausgeben: 

push 

hl 

ResAdr sichern 

ld 

de , outtxt 

Ausgabetext 

cal 1 

pst ring 

ausgeben 

pop 

de 

ResAdr holen 

cal 1 

pstring 

Res ausgeben 

pop 

hl 

MrkAdr holen 

ld 

(hl ) , 1 H ■ 

Hex-Ma r kie rung 

3P 

Input 

--> Eingabe 

UP Dez 

—> Hex - 


ld 

b.(hl ) 

Laenge als 

dec 

b 

Zaehler (—1 ) 

i nc 

hl 

EStrBeginn 

1 nc 

hl 

EStrBeglnn+1 

ld 

de , 0 

DE=Produkt=0 

ld 

a,(hl ) 

Ziffer holen 

sub 

• 0 • 

ASCII zu Hex 

jP 

c,error in 

Test: < 0 

cp 

10 

Test: 0 ... 9 

JP 

nc,e r ror_i n 

Eingabefehler 

ld 

c, a 

HexZif sichern 

push 

hl 

ResAdr sichern 

push 

bc 

Zaehler+Ziffer 

ld 

hl , 10 

Multiplikator 

ex 

de , h 1 


cal 1 

hexmultl6 

Multiplikation 

pop 

bc 

Zaehler+Ziffer 

ld 

e , c 

Ziffer in DE 

ld 

d ,0 

zu Teilprodukt 

add 

hl , de 

addie ren 

JP 

c,error ln 

Test: > FFFFH 

ex 

de , hl 


pop 

hl 

ResAdr holen 

1 nc 

hl 

folg. ResAdr 

d j nz 

hex 1 

folg. Ziffer 

ex 

de, h 1 

Res DE —> HL 


;-UP 32-B1t-ASCI I —> 16-B1t-Hex - 

asc32hex16: 


as 1 oop: 


asc hex : 


ld 

b,1 eng th2 

Zaehler = 2 

ld 

d, e 

MSByte in D 

ld 

a,(hl) 

1. ASCII-Byte 

cal 1 

asc_hex 

zu Hex-Byte 

r rca 


und dann zu 

r rca 


hoeherwertig. 

r rca 


Nibble 

r rca 


machen 

ld 

e , a 

und sichern 

i nc 

hl 

2. ASCII-Byte 

ld 

a.(hl ) 

holen 

cal 1 

asc_hex 

und umwandeln 

xor 

e 

Nibble+Nibble 

ld 

e , a 

Byte sichern 

i nc 

hl 

auf naechstes 

d jnz 

asloop 

ASCII-Byte 

ret 


Res in DE 

ASCII —> Hex: 

sub 

' 0 ' 

' 0 ' . . . ' 9 • 

jr 

c,error asc 

CY= 1—> Fehle 

cp 

10 

Test 

ret 

c 


cp 

o 

i 

< 
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j r 

c , error asc 



sub 

a , 7 

1 A 1 . . . ' F ’ 


jr 

c, error asc 



cp 

16 

Test 


ret 

c 



cp 

' a ’ -7- ' 0 ' 



jr 

c,error asc 



sub 

a. 32 

' a ' . . . ' f ' 


jr 

c,e r ro r asc 



cp 

16 

Test 


ret 

c 


error_asc: 




jp 

error_1n 

Eingabefehler 

;- 

UP Hex- 

Resultat in ASCII 

ausgeben - 

asci1 out: 




ld 

b,1ength2 

2-Byte-Z aeh1e r 


ld 

hl , result+1 

Hex-ResAd r+1 


ld 

de,resasc 

ASCII-ResAd r 

ascout: 





ld 

a,(hl) 

HexByte holen 


ld 

c , a 

und sichern 

; 



Obe res NIbb1e: 


and 

11110000b 

1 so!1eren 


r rca 


und 


r rca 


ve rschieben 


r rca 




r rca 




call 

hexasc 

zu ASCII-Byte 


ld 

(de) , a 

und speichern 


i nc 

de 

folg. ResAdr 

; 



Unte res Nibble: 


ld 

a , c 

HexByte holen 


and 

00001111b 

Nib. iso 1ieren 


cal 1 

hexasc 

zu ASCII-Byte 


ld 

(de) ,a 

und speichern 


i nc 

de 



dec 

hl 



d 3 nz 

ascout 



ld 

de,resasc 

ASCII-ResAd r 

pstring 





ld 

c,bdos09 

(Res-) String 


call 

bdos 

ausgeben 


ret 



hexasc: 



Hex —> ASCII 


add 

' 0 ' 

0 ... 9 


cp 

' 0'+10 

Test 


ret 

c 



add 

a , 7 

A. . . F 


ret 



’ 



arithm: 




ld 

(ope rat),hl 

H L=Ope ratorAdr 


cal 1 

opconv 

Op umwandeln 


push 

de 

1. Op sichern 

1 


, , 


1 




ld 

hl,inbufL 

Ende des EStr 


ld 

c. (hl ) 

bestimmen 


ld 

b, 0 

BC = Laenge 


add 

hl , bc 

HL = EStrEnde 


1 nc 

hl 

EStrEnde+1 

* 

ld 

de,(operat) 

OperatorAdr 


1 nc 

de 

OpBeg1nn 

i 

cal 1 

opconv 

0p umwandeln 

1 






I 2. 0p in DE 


pop 

hl 

; 1. 0p in HL 


1 d 

bc , (operat) 

; OperatorAdr 


1 d 

a . (bc ) 

; Operator 


cp 

' + ' 

; testen 


jr 

z,hexadd 1 6 

; Addition 


cp 

' - ’ 



jr 

z,hexsubl6 

; Subtraktion 


j r 

nc,hexdiv 

; Division 

;- 

UP Multipl1kation - 


hexmult!6: 




ld 

c , e 

; MPR in AC 


ld 

a, d 



ex 

de , hl 

MPD ln 0E 


1 d 

b. 16 

Bit-Zaehler 


1 d 

hl ,0 

Akku loeschen 

Listlng MINIHEX 




8'89 PC 65 






















































1—JOYCE 


] 



jr 

mu 1 12 


multl: 



TeilprOdukt 


add 

hl , hl 

links schieben 


jr 

c , error 

Res > FFFFH 

mult2 : 





s 1 a 

c 

MPR-Bit in CY 


r 1 a 




Jr 

nc,mu1t3 

CY=0,keine Add 


add 

hl , de 

sonst Addition 

mult3: 





d j nz 

mu 1 tl 



ret 

nc 

CY=0, Res = ok 


jr 

error 

Res > FFFFH 





hexaddlö: 




add 

hl , de 

Op addieren 


ret 

nc 

CY=0, Res = ok 

error: 





jP 

e rror_hex 

Res > FFFFH 

[ 







hexsubl6: 




and 

a 

CY loeschen 


sbc 

hl , de 

Op subtrahiern 


ret 

nc 

CY=0, Res = ok 


jp 

error_sub 

Res = negativ 








hexdiv: 





ca 1 1 

hexdivl6 

--> Division 

; 



Res ausgeben: 


push 

hl 

Rest sichern 


ld 

h, b 

Quotient von 


ld 

1 , c 

BC nach HL 


ca 1 1 

resout 

und ausgeben 


pop 

hl 

Rest holen 


ld 

(result >,hl 

und speichern 


ld 

de,divtxt 

"Rest"text und 


ca 1 1 

resout+6 

Rest ausgeben 


jp 

i nput 

--> Eingabe 

hexdi v!6: 




ld 

a, e 

Divisor (DVR) 


or 

d 

testen 


j P 

z,e r ror_div 

Fehler: DVR=0 


ld 

c, 1 

Dividend (DVO) 


ld 

b, h 

von HL nach BC 

di vl: 





ld 

a , 16 

16-Bit-Zaehler 


ld 

hl , 0 

Akku loeschen 

di v2: 





rl 

c 

DVD + Quotient 


rl 

b 

1inks rotieren 


ade 

hl , hl 

links schieben 


sbc 

hl.de 

subtrahier DVR 


jr 

nc,d1v3 

CY=0, Sub.= ok 


add 

hl , de 

Akku zurueck 

di v3: 





cc f 


CY-8it 


dec 

a 

Zaehler -1 


jr 

nz , div 2 

Zaeh1e r > 0 


rl 

c 

letztes Bit in 


rl 

b 

BC = Quotient 


ret 


HL = Rest 

divtxt: 

db ' 

Rest: $ 1 




ret 


; Op in DE 

;- 

- ASCII- 

Hex-Op —> Hex 

-Op--- 

ophex: 





and 

a 

; CY loeschen 


sbc 

hl , de 

; Hl = OpLaenge 


jp 

z,error in 

; HL = null 


ld 

b, h 

; BC = OpLaenge 


ld 

c , 1 



ex 

de , h 1 



dec 

hl 


copy : 





ld 

a, 4 

; Laenge testen 


sub 

c 

; wenn > 4,dann 


jp 

c , e r ro r_i n 

; E1ngabefehler 


ld 

de,3030h 

; Nullen in 


ld 

( resasc),de 

; Operand-Kopie 


ld 

(result),de 

; einfuegen 


add 

hl.be 

; HL = StartAdr 


ld 

de,resasc+3 

; DE = Ziel Ad r 


1 dd r 


; kopieren 


ld 

hl,resasc 

; auf OpBeginn 


cal 1 

asc32hexl6 

; Op umwandeln 


ret 


; Op ln OE 

he 1 p: 





ld 

de,heiptxt 



jr 

txtout 


error 

sub: 




ld 

de,erltxt 



jr 

txtout 


error 

d 1 v: 




ld 

de , e r 2 txt 



Jr 

txtout 


error 

hex: 




ld 

de , er3txt 



jr 

txtout 


error 

1 n: 




ld 

de,e r4txt 


txtout 





cal 1 

pst r1ng 

; Stringausgabe 


jp 

i nput 

; --> Eingabe 

erltxt 

: db OAh 

ODh,'Resultat 

ist negativ !$' 

er2txt 

: db OAh 

ODh, 'Diviso r 

ist null !$' 

e r3txt 

: db OAh 

ODh,'Resultat 

ist groesser ' 


db 'als FFFFH !$' 



er4txt: db OAh,ODh,'Eingabe- oder ' 
db 'Bereichsfehler !$' 

he 1ptxt: 

db ODh,'_ MlniHex-Hllfe _' , OAh 

db OAh,OOh 

db Bereich: 0 bis FFFFH bzw. 65535D',OAh,ODh 
db 1 Dezimal zahlen mit <#> markieren ! ' ,OAh,OAh,ODh 


db 

'Arithmetik: 


db 

Addition 

< + > 

db 

'- Subtraktion 

<-> 

db 

‘- Multiplikatlon 

<*> 

db 

'- Division 

</> 

db 

'Konvertierungen: 

, OAh 

db 

'- Hex in Dez 


db 

'- Dez in Hex 


db 




Bei s p1 eie:', OAh,ODh 
A2B4+34C6',OAh,ODh 
#7893-#2 70' ,OAh,ODh 
CF*#68‘,OAh,ODh 
#8789/B2',OAh,OAh,ODh 
ODh 

F D13' ,OAh,ODh 
#57861',OAh,ODh 
_$‘ 


== Operandenkonvertierung fuer Arithmetik = 


opconv: 


ld 

a, (de) 

1. 

Zehn des 


cp 

' # ' 

Op 

testen 

; 

j r 

nz,ophex 

Op 

= HexZahl 


opdec: 

1 nc 

de 

Op 

= DezZahl 


and 

a 

CY 

1oeschen 


sbc 

hl , de 

HL 

= OpLaenge 


jp 

z,er ro r in 

HL 

= null 


jp 

c,er ro r in 

Hl 

= negativ 


ld 

ex 

b, 1 
de, hl 

B 

= OpLaenge 


cal 1 

e x 

dec_hex2 
de , h 1 

Op 

umwandeln 


i====== Zwischenspeicher etc. 

» 

inbuf: db inbufE-inbufB 

1nbufL: ds 1 
inbufB: ds 13 
inbufE: 


E1ngabepuffer: 
max. Laenge 
akt. Laenge 
ESt r-Beginn 
Pufferende 


resasc: dw 1 
result: dw 1 

marker: db 'H‘ 
db '$' 

operat; dw 1 
stack: dw 1 


; Res in ASCII 
; Res in Hex 

; Hexzahl-Mrk 
; ResString-Ende 
; Operator-Adr 
; Stapelzeiger 


end 
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Pixeleien 

Der Bildschirmaufbau des JOYCE 


Warum sich abgeben mit 720 x 256 Pixel? Da existiert doch die GSX (Gra¬ 
phic System Extension) von DR, und die kümmert sich neben Bildschirm 
auch um Drucker und Plotter. 15 kByte mehr RAM und Einblick in die 
Software-Innereien sollten einen kurzen Exkurs schmackhaft machen. Nur 
eine geringe Speicherplatzreduktion (1 kByte) und etwas Maschinen-Code, 
und jeder der 184.320 Pixel kann aus BASIC oder Turbo Pascal angespro¬ 
chen werden. 


Der JOYCE-Bildschirm wird von 32 
Feldzeilen (256 Pixelzeilen) mal 90 
Feldspalten (720 Pixelspaltcn) aufge¬ 
baut. Feldzeile 32 ist Statuszeile und 
wird nicht gescrollt. Bildschirmspei¬ 
cher und Roller-RAM (B600H bis 
B7FFH) befinden sich in Bank 0 (s. Ar¬ 
tikel von M. Anton im JOYCE-Sonder- 
heft 1/87). Das Roller- RAM ist zeilen¬ 
weise aufgebaut und adressiert immer 
das erste Byte einer Pixelzeile (Pixel¬ 
spalte 0 bis 7). Dabei ist die erste Rol- 
ler-Ram-Adresse (B600H + B601H) 
für Pixelzeile 0 (ganz oben), und die 
letzte Adresse (B7FEH + B7FFH) für 
Pixelzeile 255 (ganz unten) zuständig. 

Seltsamerweise muß jeder Adresse 
noch die Adresse der ersten Pixelzeile 
der betreffenden Feldzeile quasi als 
Offset hinzuaddiert werden. Das heißt, 
die Adresse für Pixelzeile 0 erhält man 
durch Additon des Inhaltes (B600H + 
B601H) plus Inhalt (B600H + B601H), 


Adresse für Pixelzeile eins durch Inhalt 
(B602H + B603H) plus Inhalt (B600H 
+ B601H), und so weiter, Adresse für 
Pixelzeile 8 durch Inhalt (B610H + 
B611H) plus Inhalt (B610H + 
B611H), Adresse für Pixelzeile neun 
durch Inhalt (B612H + B613H) plus In¬ 
halt (B610H + B611H), und so weiter. 
In horizontaler Richtung codiert das 
adressierte Byte acht Pixel (links be¬ 
ginnend). Alle acht Bytes weiter im 
Bildschirmspeichcr folgt die Adresse 
für die rechts anschließenden Pixel. 
Damit sind Bildschirmspeicher und 
Zeichensatzspeicher (Bank null von 
B800H bis BFFFH) in ihrem Aufbau 
identisch. Listing 1 ist ein kurzes Bei¬ 
spielprogramm, um den kompletten 
Zeichensatz in die Bildschirmmitte ein¬ 
zublenden. 

Wie bei jedem Zugriff auf den Bild¬ 
schi rmspeicher darf auch die Routine 
für die xy-Pixelansteuerung nicht im 


Bereich von 4000H bis BFFFH stehen. 
Sie würde sich selbst bei der Bankum¬ 
schaltung den Boden unter den Füßen 
wegziehen. Die Einrichtung einer RSX 
(Resident System Extension) erschien 
uns am sinnvollsten. Mit ihr wird der 
TPA (Transient Program Area) ernie¬ 
drigt, um darüber freien Speicherplatz 
im Common-Bereich (in C000H bis 
FFFFH erfolgt kein Bankswitching) zu 
schaffen. Obwohl die eigentliche xy- 
Ansteuerungsroutine nur zirka 50 kByte 
lang ist, benötigt eine einzelne RSX 

mindestens 1 kByte (RSX_Loader + 

1 Page). Um den aktiven Status der 
RSX zu erkennen, wurde die BDOS- 
Funktion Nr. 10 (Read Console Buffer) 
umgeleitet und so das Betriebsystem¬ 
prompt geändert. Sollte diese BDOS- 
Erweiterung einmal stören (wir hatten 
bisher keine Probleme), kann sie ohne 
großen Aufwand in GRAF.ASM (Li¬ 
sting 2) entfernt werden: 

ftest: mov a,c 
ersetzen durch 
ftest: jmp next 

Die RSX GRAF.ASM ist für einen 
8080- Assembler geschrieben und kann 
mit RMAC bearbeitet werden. 

Von GRAF.Z80 (siehe Listing 3), der 
Grafikroutine, wird bei Aufruf die 
TPA-Größe kontrolliert. Falls sie den 
TPA im COMMON-Bereich vorfin¬ 
det, wird die eigentliche xy-Ansteue- 

rung (Bereich von BAS_IN bis 

PRHEX) nach TPA + 020H kopiert. 
Andernfalls erfolgt eine Fehlermel¬ 
dung. Der Parameterübergabe (BAS_ 

IN, TUR_IN) folgt die Prüfung auf 

gültige x- und y-Werte. x-Werte grö¬ 
ßer 255 und y-Werte größer 719 wer¬ 
den ignoriert. Bankswitching und Be¬ 
rechnung der richtigen Speicherplatza¬ 
dresse mit Inhalt schließen an. Mit dem 
Rücksprung nach CP/M steht nun die 
Grafikroutine zur Anwendung bereit. 
Listing 4 ist ein kurzes Turbo-Pas- 
cal-Demo-Programm. Die Adresse für 
die “external procedure“ (F230H) gibt 
GRAF.COM bei Aufruf an. Sie muß 
bei geänderter Speicherkonfiguration 
(zum Beispiel mehrere RSX) angepaßt 
werden. Um ’wilde ? Aufrufe, die mit 
großer Wahrscheinlichkeit ins 'land of 
no retum’ fuhren, zu vermeiden, emp¬ 
fiehlt es sich, eine Prüfprozedur (pro- 
cedure meintest in demo.pas) am An¬ 
fang einzubinden. Bei erfolgreicher In¬ 
stallation von GRAF.COM und Com- 
pilierung/Starl von DEMO.PAS sollte 
Abb. 6 auf dem Bildschirm erscheinen. 
Mit RSXOFF.Z80 (Listing 5) kann die 
Grafikroutine aus dem Speicher wieder 
herausgenommen werden. Der TPA 
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wird um die letzte RSX angehoben. 
Alte und neue TPA-Grenzen werden 
angezeigt. Zusammengefaßt das Vor¬ 
gehen zum Übersetzen der Quelltexte: 

RMAC GRAF. ASM 
LINK GRAF ÄOPÜ 
REN GRAF. RSX= GRAF. PRL 
Z80 GRAF.Z80 
HEXCOM GRAF 


GENCOM GRAF GRAF 

Z80 RSXOFF HEXCOM RSXOFF 

(Z80 steht für Z80-Assembler) 

Es stehen dann zur Verfügung: 

GRAF.COM: richtet xy-Ansteuerung 
als RSX ein 

RSXOFF.COM: löscht die angehäng- 
te (Clemens Bitter/rs) 


Diese Programme sind in Assembler und in 
Turbo Pascal geschrieben. Um mit dem 
Turbo-Pascal-Programm arbeiten zu kön¬ 
nen, benötigen Sie den Turbo-Pas¬ 
cal-Compiler. Bei den Assembler-Pro¬ 
grammen verfahren Sie so. wie es im Text 
beschrieben ist. Auf der Databox stehen Ih¬ 
nen selbstverständlich alle Programme 
lauffähig zur Verfügung. 


**«****«****S*«*»******»*«:t t **,|,, l ,,t ( *******, 

ZEICHENSATZ MAL ANDERS * 

DIREKTE KOPIE IN DEN BILDSCHIRMSPEICHER * 

***»*************,*«*,«»*»,***#*„,*,*„„*** 


ORG OIOOH 


CALL 

0FC5AH 

OEFW 

00C2H 

DI 


LD 

A.081H 

OUT 

(0F1H),A 

LD 

A.08ZH 

OUT 

(0F2H).A 

LD 

HL,(OB700H) 

ADD 

HL, HL 

LD 

E, L 

LD 

D, H 

LD 

HL,OB800H 

LD 

BC.0800H 

LDIR 


JP 

0 


XBIOS 

BILDSCHIRMRESET 
RST 38H SETZT AUF 
BANK 1 

BILDSCHIRMSPEICHER 
IN BANK 0 


BILDSCHIRMMITTE 

OFFSET 

ADRESSE IN DE 

ANFANG ZEICHENSATZ 
LAENGE ZEICHENSATZ 
KOPIERE 

WBOOT SCHALTET 
BANK 1 EIN 


END 


;***.****«*******»****«*»***»»******************* 
;* GRAF.ASM stellt als RSX Platz fuer Grafik- * 
j* Routine zur Verfuegung und aendert Betriebs- * 
i* system-Prompt im aktiven Status * 

;************************************************ 

ds 6 ;Seriennummer 

Listing Pixeleien 



jmp 

ftest 

next: 

db 

Oc3H 


dw 

0 

pro v: 

dw 

0 

rmov : 

db 

0 

nonbn k: 

db 

0 


db 

• GRAF RSX• 


ds 

3 

g raf 1 k: 

ds 

080h 

ftest: 

mov 

a, c 


cpi 

10 


jz 

begi n 


jmp 

next 

begin: 

1x1 

h , 0 


dad 

sp 


shl d 

ret$stack 


1 Xi 

sp. 1 ocjstack 


push 

h 


push 

d 


push 

b 


mv i 

c , 9 


1x1 

d,test$msg 


cal 1 

next 


pop 

b 


pop 

d 


pop 

h 


cal 1 

next 


1 hl d 
sphl 
ret 

ret$stack 

test$msg: 

db 

'<Grafik >$’ 

ret$stack: 

dw 

0 


; resident 

;P1atzha1te r 
; Read Console Buffer 


;sichere Register 
Idrucke neues Prompt 


;Read Console Buffer 


Lisling Pixeleien 
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»JOYCE-Bestellservice« 
Knüller für JOYCE-Fans 

Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 


303 

Stck. 

Databox zum JOYCE SH 1 

30,- DM 

304 

Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 2 

30,- DM 

305 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 2 

24,- DM 

306 

_Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 2 

48,- DM 

360 

_Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 3 

30,- DM 

361 

_Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 3 

24,- DM 

362 

_ Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 3 

48,- DM 

367 

Stck. 

Sonderheft JOYCE Nr. 4 

20,- DM 

3671 

_Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 4 

30,- DM 

3672 

_Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 4 

24,- DM 

3673 

Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 4 

48,- DM 

215 

_Stck. 

JOYCE Programmsammlung Vol. 1 

59,- DM 

216 

Stck. 

JOYCE Programmsammlung Vol. 2 

49,- DM 

217 

_Stck. 

JOYCE Programmsammlung Vol. 3 

69,- DM 

219 

Stck. 

JOYCE Programmsammlung Vol. 4 

59,- DM 

220 

Stck. 

JOYCE Programmsammlung Vol. 5 

99,- DM 

221 

Stck. 

JOYCE Programmsammlung Vol. 6 

59,- DM 


+ Porto/Verpackung 

(Inland 4,- DM, Ausland 6,- DM) 

Gesamtbetrag 


□ Den Betrag bezahle ich mittels des beigefügten Verrechnungs¬ 
schecks. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahme¬ 
gebühr. (Bei Lieferung ins Ausland ist Nachnahme nicht möglich.) 
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Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


Superpack-Aktion • Superpack-Aktion 

Ja, ich bestelle aus Ihrer Zeitschriften-Aktion folgende Produkte 
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ds 

1oc$stack: 

and 


32 


; **************************************************** 


;* GRAF.Z60 * 
;* * 
;* - TESTET OB PLATZ LIEBER TPA TAUGLICH FUER * 
i* GRAFIK-ROUTINE * 
;* - ENTHAELT PI XEL-XY-KOORDINATEN-ANSTEUERUNG * 
;* UND KOPIERT DIESE UEBER TPA * 
;* - ROUTINE VON BASIC UND TURBO-PASCAL AUFRUFBAR * 
;* - ZEIGT EINSPRUNG-ADRESSEN FUER BASIC UND * 
;* TURBO-PASCAL MIT JEWEILIGER LOKIG AN * 
;« - TESTET AUF GUELTIGE XY-WERTE * 


*************, *******,****** 


LD A.L ;BASIC-ADRESSE 

ADD A,TUR_IN-BAS_IN ;ADDIERE ADRESS-DIFF. 

CALL PRHEX ;GEBE SIE AUS 

;********«****•****«****,***** 

;» AUSGABE DER AUFRUF-LOGIK * 


LD DE,LOGIK 
LD C.PRSTR 
CALL BDOS 
JP WBOOT 


; LOGIK MELDUNG 

;GEBE SIE AUS 
;RUECKSPRUNG ZU CP/M 


* •********t********trti**»ti»»:»t**-**.********t».***«* 

* LOESCHEN DER ANGEFUEGTEN, RESIDENTEN RSX UNO * 

* RUECKSPRUNG ZU CP/M * 

««***************,,»,**,»., ********************** 


WBOOT 

EQU 

0 

;WÄRMST ART 

BOOS 

EQU 

5 

;BDOS AUFRUF 

PRT 

EQU 

2 

;PRINT CHARACTER 

LF 

EQU 

ODH 


CR 

EQU 

0 AH 


PRSTR 

EQU 

g 

;PRINT STRING 

MVF LAG 

EQU 

OFFH 

;MOVE FLAG = NICHT RESIDENT 

MVOFFS 

EQU 

OEH 

;MOVE-F LAG-OFFSET IN RSX 

NEXT 

EQU 

OBH 

;NAECHST E RSX 

COMMON 

EQU 

OCOH 

;COMMON-BASE cooo 

OFFSET 

EQU 

020H 

;ROUTINE-OFFSET VON TPA 


ORG 

OIOOH 



ja*********************** **«**»*,•*****,!, 

;* TEST AUF RICHTIGEN SPEICHER-BEREICH * 


LD 

HL,(6) 

; HOLE 

TPA IN HL 

LD 

A.H 



CP 

COMMON 

; TPA 

UNTER COMMON ? 

JR 

C,NO_COM 

; JA, 

NICHT KOPIEREN 


;*****»**************«******«*•****** 
;* KOPIERE GRAFIK-ROUTINE UEBER TPA * 
;«****»***«************************** 


LD 

D , H 

;ZIEL GLEICH TPA 

LD 

E,OFFSET 

;PLUS OFFSET 

LD 

HL,BAS_IN 

;START OER ROUTINE 

LD 

BC,PRHEX-BAS 

.IN JLAENGE DER ROUTINE 

LDIR 


;KOPIERE NACH OBEN 


;************»**********,,**,***»****** 

;* GEBE ALTE UND NEUE TPA-GRENZEN AN * 


LD DE,TPAALT 
LD C.PRSTR 
CALL BDOS 
LD HL,(6) 
PUSH HL 
LD L.NEXT 
LD A,(HL) 

CP OF3H 
JR C,PT PA 
LD A.0F6H 
PTPA: CALL PRHEX 

LD A, 0 
CALL PRHEX 
LD DE,TPANEU 
LD C.PRSTR 
CALL BDOS 
POP HL 
PUSH HL 
LD A , H 
CALL PRHEX 
LD A , 0 
CALL PRHEX 


;MELDUNG UEBER ALTEN TPA 
;GEBE AUS 

‘.NEUER TPA 
;SICHERE 
;ALTE TPA PAGE 

;NUR LOADER BASE ? 

;N EIN ACCU RICHTIG 
;BDOS BASE 
;GEBE AUS 

;IMMER PAGE-WEISE 
;MELDUNG NEUER TPA 
;GEBE AUS 

;AKTUELLEN TPA 

;GEBE AUS 


******»******»**lt*ti*»»».»»:^»»»»:»t X » a t********ti*** 

* AUSGABE DER BASIC UNC TURBO-PASCA L- EINSPRUNG * 

* AORESSEN * 

******** ****************** ********************** 


LD 

OE,BA MSG 

;MELDUNG BASIC EINSPRUNG 

LD 

C.PRSTR 

;AUSGABE 

CALL 

BDOS 


POP 

HL 

;HOLE TPA 

LD 

L,OFFSET 

;BEGINN GRAFIK-ROUTINE 

PUSH 

HL 

;SICHERE START-ADRESSE 

LD 

A, H 


CALL 

PRHEX 

;OBERES BYTE 

POP 

HL 


PUSH 

HL 


LD 

A, L 


CALL 

PRHEX 

JUNTERES BYTE 

LD 

DE,T MSG 

;ME LOUNG TURBO-PASCAL 

LD 

C.PRSTR 

;AUSGABE 

CALL 

BDOS 


POP 

HL 

;ANFANGSADRESSE 

PUSH 

HL 

;SICHERE 

LD 

A , H 

;AUSGABE OBERES BYTE 

CALL 

PRHEX 


POP 

HL 



LD 

L,MVOFFS 
(HL) ,MVF LAG 

;HL AUF MOVE FLAG 

LD 

; NICHT RESIDENT 

LD 

OE.MSG CO 

;GEBE MELDUNG AUS 

LD 

C.PRSTR 


CALL 

BDOS 


JP 

WBOOT 

;AKTIVIERE CCP 


;* GRAFIK-ROUTINE , AUFRUFBAR VON BASIC UND * 
;* TURBO-PASCAL » 

■***********************************»****X*** 


8AS_IN: 

EX 

DE,HL 

;BASIC EINSPRUNG 


LD 

C , (HL) 



INC 

HL 



LD 

0. (HL) 

; Y-WERT IN BC 


EX 

DE,HL 



LD 

E. (HL) 



INC 

HL 



LD 

D. (HL) 

;X-WERT IN DE 


JR 

CONTRL 

; XY-PRUEFUNG 


ORG 

BAS_IN + 01 OH 

; UEBERSICHTLICH 

TUR_IN: 

POP 

HL 

;TURBO-PASCAL-EINSPRUNG 


POP 

BC 



POP 

DE 



PUSH 

HL 

; RUECKSPRUNGADRESSE 

CONTRL: 

LD 

A.B 

;TEST AUF 


CP 

0 

;BC < 256 UND DE < 720 


JR 

N Z,MAIN_1 



LD 

A , D 



CP 

3 



JR 

NC,MAIN 1 



CP 

2 



JR 

N Z,MAIN 



LD 

A, E 



CP 

ODOH 



JR 

NC,MAIN_1 


MAIN : 

DI 


;INTERUPT SCHALTET 




;AUF BANK 1 


LD 

A,081H 

;BANK 0 VON 4000 


OUT 

(0F1H) , A 

;BIS BFFF 


LD 

A,082H 



OUT 

(0F2H),A 



LD 

HL,0B600H 

;HL ROLLER-RAM ANFANG 


ADD 

HL, BC 

;HL AUF PIXELZEILE 


ADD 

HL, BC 



LD 

C. (HL) 

;INHALT IN BC 


INC 

HL 



LD 

B,(HL) 



LD 

H , 8 

;ADRESSE IN HL 


LD 

L,C 



LD 

A.OF0H 

;OFFSET GLEICH l.PIXEL- 


AND 

L 

iZEILE DER FELDZEILE 


LD 

L, A 



ADD 

HL, BC 

; ADDIERE OFFSET 


LD 

A, E 

;NUN DIE PIXELSPALTE 


RES 

0, E 

; ALLE 8 PIXELPUNKTE 


RES 

X.E 

; EIN BYTE WEITER 


RES 

2 . E 



ADD 

HL, DE 

JADRESSE IN HL 


LO 

E, 7 

;IGNORIERE > 7 


AND 

E 

;POSITION 0 .. 7 


LD 

E, A 

;SICHERE IN E 


INC 

E 

;SONST FEHLT EINS 


LD 

A.080H 

;PIXEL BEI 1 (LINKS) 

MAIN_0: 

RRCA 


;EIN PIXEL NACH RECHTS 


OEC 

E 

•.ERNIEDRIGE POS.-ZAEHLER 


JR 

N Z,MAIN_0 

1 SIS PIXELNUMMER STIMMT 


RLCA 


;EINS ZURUECK (LINKS) 


OR 

(HL) 

iNICHT LOESCHEN 


LD 

(HL) ,A 

I ZEICHNE PIXEL 

MAIN_1: 

LD 

A,088H 

: ZURUECK AUF BANK 1 


OUT 

(0F2H),A 



LD 

A.085H 



OUT 

(0F1H),A 



EI 


IINTERUPT EIN 


RET 




»•************************** tt mm t . t 

;* HEX - ASCII WANDLUNG DES ACCU MIT * 
;* AUSGABE AUF DEM BILDSCHIRM * 


Lisling Pixeleien 


Lisling Pixeleien 
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PRHEX: 

LD 

B, A 

;SICHERE ACCU 


AND 

RRCA 

RRCA 

RRCA 

RRCA 

OF OH 

;MOST SIGN. NIBBLE 


CALL 

CONVRT 

:HEX IN ASCII 


CALL 

OUTPUT 

;GEB ES AUS 


LD 

A,B 

J HOLE ACCU ZURUECK 


AND 

OFH 

;LOWER SIGN. NIBBLE 


CALL 

CONVRT 

:HEX IN ASCII 


CALL 

RET 

OUTPUT 

;GEB ES AUS 

CONVRT: 

CP 

OAH 

[ZIFFERN 0-9 


JR 

NC,CONV 1 

;NE IN OANN A - F 


ADD 

A,030H 



RET 



CONV 1: 

ADO 

A,037H 



RET 



OUTPUT: 

PUSH 

BC 

;SICHERE REGISTER 


LO 

E.A 



LD 

C , PRT 

;GEBE EIN ZEICHEN AUS 


CALL 

BOOS * 



POP 

BC 

;WIEDER HERSTELLEN 


RET 



;**•******«••*»•**•«*** 
i* BILDSCHIRMAUSGABEN * 


MSG CO: 

DEFM 

'Obere TPA-Grenze unter Hex :' 


OE FM 

'C100 !' 



DEFB 

LF, CR 



DEFM 

'Grafik-Routine schaltet den' 


DEFM 

Bereich von 

Hex 4000 bis COOO’ 


DEFB 

LF ,CR 



DEFM 

'auf Bank 0 um. 


DEFB 

LF ,CR 



DEFM 

'Vor Neuaufruf TPA auf mlnd.' 


DEFM 

Hex C100 erhoehen ...$' 

Tpaalt: 

DEFB 

L F , CR 



DEFM 

'256 Byte RSX 

wird unter TPA ' 


DEFM 

'geladen . 



DEFB 

LF , CR 



DEFM 

'alter TPA bei Hex : $' 

TPANEU: 

DEFB 

LF , CR 



OE FM 

'neuer TPA bei Hex : $' 

BA MSG: 

DEFB 

LF , CR 



DEFM 

'Grafik-Routine ln freien RSX-' 


DEFM 

'Raum koplert.' 


DEFB 

LF.CR,LF,CR 



DEFM 

'Aufruf der Masch1nen-Rout1 ne 


DEFM 

' unter' 



DEFB 

LF ,CR 



DEFM 

'Basic bei 

Adresse Hex $' 

T MSG: 

DEFB 

LF , CR 



DEFM 

’Turbo-Pascal 

Adresse Hex $' 

LOGIK: 

DEFB 

LF,CR,LF.CR 



DEFM 

‘Syntax 

call Ad resse(xX,yX)' 


DEFB 

LF.CR 


DEFM 

- 

procedure xy plot(x,y' 


DEFM 

: 1nteger) 

;external Adresse' 


DEFB 

LF.CR 



DEFM 

'$' 



END 



program demo; 



var x,y 

1ntege r; 


procedura 

xy_p!ot(x,y : Integer);external $F230; 

procedure 

clrscr;(» XBIOS Aufruf loescht Statuszelle *) 

beg 1 n 




Inline ($CD/$5A/$FC/$C2/$00) 


end; 




procedure 

meintest; (* Test 

auf Byte 0 und 1 *) 

beg 1 n 




1f not ((memÄ$F230Ü=$El) and 

(memÄ$F231ü=$Cl) ) then 

beg 1 n 




wr1te1n('Fehl er bei Test auf Byte 0 und 1'); 

wr1te1n('der 

Graf 1k-Routlne ...'): 

wr1teln('Graf 1k-RSX aktiv 

?' ); 

repeat 

halt; 
end ; 

unt 1 1 

keypressed; 


end; 




beg 1 n 
meintest; 
clrscr; 
y:=0; 
for x :=0 

to 719 

do xy plottx 

. y); 

for y :=0 

tO 255 

do xy_plot(x 

.y); 
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for x:=7l9 downto 0 do xy_plot(x,y); 
for y:= 255 downto 0 do xy_plot(x,y); 
y:=128; (* Nulllnle ») 

for x:= 0 to 719 do xy_plot(x,y); 
for x:=0 to 719 do (* Phantasie *) 

xy_plot(x,120+round(sln(x/10)*400/(sqrt(x + 1)))); 
for x:=0 to 900 do (* Zufall-Pixel *) 

xy_plot(250+round(400*random),180+round(60*random)); 

gotoxy(30,6);wr1te( '-' ) ; 

gotoxy(30, 7);wr1te('<< GRAFIK - DEMO >>'); 

gotoxy ( 30,8) ;wr1te( '-' ) I 

repeat untll keypressed; 
end . 

;********************************************* 

;* RSXAUS LOESCHT ZULETZT ANGEFUEGTE RSX UND * 

;* GIBT 

ALTE 

UND TPA GRENZEN 

AN 

* 

■**•*»*«««******««****«*««***»*«**«•*«*•***•«* 

WBOOT 

EQU 

0 



BOOS 

EQU 

5 . 



PRT 

EQU 

2 


PRINT CHARACTER 

LF 

EQU 

ODH 



CR 

EQU 

OAH 



PRSTR 

EQU 

9 


PRINT STRING 

LDBASE 

EQU 

0F3H 


LOADER-BASE JOYCE 

NEXT 

EQU 

OBH 


NEXT RSX PAGE 

MVF LAG 

EQU 

OFFH 


NICHT RESIDENT 

MVOFFS 

EQU 

OEH 


MOVE-FLAG OFFSET 


ORG 

0100H 




LO 

HL,{BDOS+1) 


TPA IN HL 


LD 

A , H 




CP 

LDBASE 


RSX VORHANDEN ? 


JR 

NC,NOMSG 


NEIN - MELDE 


LO 

L.MVOFFS 


JA, SETZE MOVE FLAG 


LD 

(HL) ,MV F LAG 


NICHT RESIDENT 


PUSH 

HL 


SICHERE RSX-PAGE-NUMMER 


LO 

DE,MSG 1 


1. TEIL DER MELDUNG 


LO 

C,PRSTR 




CALL 

BOOS 


SCHREIBE 


POP 

HL 




PUSH 

HL 


HOLE UND SICHERE 


LD 

A , H 


HOEHERWERTIGES BYTE 


CALL 

PRHEX 




LD 

A, 0 


TPA AUF l?AGE-ANFANG 


CALL 

PRHEX 




LD 

DE,MSG 2 


ZWEITER TEIL 


LD 

C,PRSTR 




CALL 

BDOS 


SCHREIBE 


POP 

HL 


HOLE RSX-PAGE-NUMMER 


LD 

L,NEXT 


HL AUF FOLGENDE RSX 


LD 

A,(HL) 


NAECHSTE PAGE-NUMMER 


CP 

LDBASE 


RSX VORHANDEN ? 


JR 

NC,MSG F6 


NEIN SETZE TPA AUF F600 

MSG RS: 

CALL 

PRHEX 


JA GEBE TPA AUS 


LD 

A , 0 




CALL 

PRHEX 




JP 

WBOOT 


BEENDE UND RUFE CCP 

MSG_F 6: 

LD 

A.0F6H 


TPA GLEICH F600 


JR 

MSG_RS 

;GEB AUS 

PRHEX: 

LD 

B,A 


SICHERE ACCU 


AND 

OFOH 

;MOST SIGN. NIBBLE 


RRCA 





RRCA 





RRCA 





RRCA 





CALL 

CONVRT 


HEX IN ASCII 


CALL 

OUTPUT 


GEB ES AUS 


LD 

A , B 


HOLE ACCU ZURUECK 


AND 

OFH 


LOWER SIGN. NIBBLE 


CALL 

CONVRT 


HEX IN ASCII 


CALL 

OUTPUT 

:GEB ES AUS 


RET 




CONVRT: 

CP 

OAH 


ZIFFERN 0-9 


JR 

NC,CONV 1 

[NEIN DANN A - F 


ADD 

A.030H 




RET 




CONV 1: 

ADD 

A,037H 




RET 




OUTPUT: 

PUSH 

BC 


SICHERE REGISTER 


LD 

E . A 




LO 

C, PRT 


GEBE ZEICHEN AUS 


CALL 

BDOS 




POP 

BC 


WIEDER HERSTELLEN 


RET 




NOMSG: 

LD 

DE,NO MSG 

.MELDUNG KEINE RSX 


LD 

C, PRSTR 




CALL 

BDOS 


GEBE SIE AUS 


JP 

WBOOT 


ZUM SYSTEM 

NO MSG: 

DEFM 

'keine RSX gefunden ...$' 

MSG_1: 

DEFM 

'Oie zuletzt angefuegte RSX ' 


DEFM 

'wlrd geloescht 




DEFB 

LF.CR 




DEFM 

'alter TPA bei 

Hex 

: $' 

MSG 2: 

DEFB 

LF.CR 




DEFM 

"neuer TPA bei 

Hex 

: $' 


END 
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Geheimbefehle 

Assemblerprogrammierung mit Pfiff 


ziehungsweise “FD-19“. Da muß doch 
noch mehr möglich sein —oder? 

Es ist mehr möglich! Der “Z80“ akzep¬ 
tiert auch Befehle wie LD A,IXL oder 
INC IYH und auch CP IXL (Vergleich 
Register A mit IXL). 


Man hat zwar schon manchmal 
von ihnen gehört — aber genaues 
weiß man ebensowenig, wie von 
den verborgenen Aktivitäten 
von 007 - James Bond, Geheim¬ 
agent Ihrer Majestät. Es geht um 
die nicht dokumentierten Z80- 
Befehle, die die Indexregister so 
ansprechen, als wären sie nicht 
ein ganzes 16-Bit-Register, 
sondern je zwei 8-Bit-Register 
IXH, IXL, IYH, IYL. 


Ende 1986 - bei Computern also 
schon vor langer, langer Zeit —konnte 
über diese Befehle etwas gelesen wer¬ 
den, aber ohne daß es da so richtig 
deutlich wurde. Deshalb ist dies also 
nicht der Bericht über eine Ent¬ 
deckung, sondern der Versuch, diese 
Befehle verständlich und für den An¬ 
wender nutzbar zu machen. 


“Escapes“ beim Z80-Code 

Ein Z80-Befehl besteht fast immer aus 
einem “Arbeits-Byte“, dem gegebe¬ 
nenfalls noch ein oder zwei “Wert- 
Byte“ folgen, die den Wert oder die an¬ 
gesprochene Adresse im Speicher defi¬ 
nieren. 

Ausnahmen sind die OP-Codes “CB“, 
“DD“, “ED“ und “FD“, die quasi als 
ESCAPE-Codes dienen und den Pro¬ 
zessor nur dann beeinflussen, wenn da¬ 
nach noch ein weiteres “Arbeits-Byte“ 
folgt, das dann den eigentlichen Befehl 
enthält. 

“CB“ wird hauptsächlich für die Ein¬ 
zelbitbefehle BIT, RES und SET be¬ 
nutzt, nach “ED“ folgen meist Ein¬ 
oder Ausgabebefehle oder Steuerungen 
des Interrupt. 

“DD“ = beeinflußt Register IX 
“FD“ = beeinflußt Register IY 

Stellt man einmal eine Liste der gülti¬ 
gen und dokumentierten Befehle zu¬ 
sammen, so folgen auf “DD“ und 



“FD“ durchaus nicht alle möglichen 
Bytes von 00 bis FF, sondern es klaffen 
mehr oder minder große Lücken in der 
Zahlenfolge. Der erste zulässige Be¬ 
fehl ist “DD-09“ beziehungsweise 
“FD-09“ (ADD IX,BC oder ADD 
IY,BC). Der nächste ist “DD-19“ be- 


Was zu beweisen ist... 


Diese Befehle funktionieren wirklich. 
Das Demo-Listing 1 zeigt den assem- 
blierten Quelltext und Abbildung 1 das 
mit DUMP ausgedruckte COM-File. 

Das Programm zeigt die ASCIl-Zei- 
chen 30 bis 37 am Bildschirm. Dabei 
zählt es IYL von acht bis null herunter 
und IYH von 30 bis 37 herauf, ver¬ 
gleicht IYL mit Register A und über¬ 
gibt von IYH den passenden ASCII- 
Code in Register E. Um auszuschlie¬ 
ßen, daß etwa das Register HL an den 
Aktionen beteiligt ist, wird es bei je¬ 
dem Durchlauf der Schleife auf Null 
gesetzt. 

Allerdings: Ihr Assembler wird Befeh¬ 
le wie “LD IYL,A“ oder “INC IYH“ 
vermutlich nicht kennen. Das macht 
aber nichts, weil man den Assembler 
überlisten kann. 

Den Assembler überlisten 


Vor dem normalen Befehl, mit dem Sie 
sonst ein Register H oder L beeinflus¬ 
sen würden, setzen Sie das ESCAPE- 
Byte “DD“, wenn Sie IX oder das Byte 
“FD“, wenn Sie IY meinen. 

Dem Byte “DD“ oder “FD“ geben Sie 
den ihm zustehenden Platz an der ent¬ 
sprechenden Stelle mit der Zuordnung 
DB (Platz für ein Byte) im laufenden 
Programm oder dem Befehl, den Ihr 
Assembler dafür verlangt. Unmittelbar 
danach kommt der eigentliche Befehl 
auf das Index-Halbregister. 

Der Assembler reserviert für “DD“ 
oder “FD“ gemütlich ein Byte und 


CP/M 3 DUMP 

- Version 3 

0 











0000: 3E 

0Ö 

FD 

6F 

3E 

30 

FD 

67 

3E 

00 

F5 

FD 

5C 

CD 

21 

01 

>..o>0.g>...ö.!. 

0010: FD 

2D 

Fl 

21 

00 

00 

FD 

BD 

26 

04 

FD 

24 

18 

EC 

CD 

00 


0020: 00 

0E 

02 

CD 

05 

00 

C9 

00 

00 

00 

00 

00 

00 

00 

00 

00 


0030: 00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


0040: 00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


0050: 00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


0060: 00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


0070: 00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

. 


Abbl: Der DUMP-Ausdmck von GEHEIM. COM 
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h denkt sich nichts weiter dabei, denn er 

verarbeitet danach zum Beispiel den 
für ihn normalen Befehl “LD L,A“ 
oder “INC H“. Das fertige “COM- 
mando“-Programm “sieht“ aber nicht, 
daß dort eine Speicherstelle reserviert 
wurde und betrachtet “DD“ oder “FD“ 
als Programm-Code und bewegt das 
Register IX oder IY statt der Register 
H oder L. 

Eine eigentlich überflüssige Liste 

Eine umfangreiche Liste der mögli¬ 
chen Geheimbefehle ist nicht nötig 

- Sie nehmen einfach den, mit dem Sie 
sonst die Register H oder L ansteuern 
würden. Ob nun alle funktionieren, 
konnte noch nicht getestet werden, 
aber LD..., ADD..., INC..., DEC... 
und CP... laufen allemal. 

Beispiele: 

LD IXL,A = DD,6F (6F ist LD L,A) 
LD C.IXL = DD,4D (4D ist LD C,L) 


CP IXH = DD,BC (BC ist CP H) 
und so weiter. 

Gesparte Bytes 

Dabei sparen wir noch ein paar Bytes: 
Befehle wie “LD IX, A“ gibt es ja über¬ 
haupt nicht, da IX und IY regulär nur 
über eine Speicherstelle zu laden sind 
oder auf eine Speicherstelle verweisen, 
die in die Register lädt, wenn man nicht 
den Wert von IX/IY mit dem des Stack- 
Pointers tauscht. 

Um IX oder IY einen Wert zuzuwei¬ 
sen, müssen wir jetzt mit Befehlen ar¬ 
beiten wie DD 2A yy xx (indirekte 
Wertzuweisung) oder mit DD 21 yy xx 
(direkte Wertzuweisung). In beiden 
Fällen braucht man vier Byte. Spricht 
man aber das Index-Halbregister aus 
einem Register A, B, C, D, E, H oder 
L direkt mit den “Geheimbefehlen“ an, 
genügen 2 Byte. 

Damit kann man schon eine ganze 
Menge anfangen und einige Operatio¬ 


nen von der 16-Bit auf die 8-Bit-Ebene 
verlagern. Vor allem dann, wenn Sie 
IX oder IY hoch oder herunter zählen 
lassen, genügt oft die Beeinflussung 
von IXL oder IYL. Oder: Statt über 
zwei Index-Bereiche von 0000 bis 
FFFF verfügen Sie jetzt über vier von 
00 bis FF oder einem (zum Beispiel IX) 
von 0000 bis FFFF und zwei (zum Bei¬ 
spiel IYH, IYL) von 00 bis FF. 


Keine Dokumentation 


In der Dokumentation der Firma Zilog 
über ihre Z80-CPU sind diese Befehle 
nicht aufgeführt. Ob der Prozessor 
durch diese unübliche Ansteuerung 
Schaden nimmt? Bisher ist das bei mei¬ 
nem nicht der Fall. Er versteht und be¬ 
folgt diese Befehle klaglos. 


(Horst Buchholz/rs) 



; DEMO IXH, 

IXL, IYH, 

IYL 



1 


i written by 

H. Buchholz 



pop af 



; Assembler 

ZMAC (PD - 

Kotul 1a) 






» 





ld hl,0000 

Kontrol1e, dass HL 







; 

unbetel1igt 


db Ofdh 

; "Escape" 

fuer IY 






ld 1 , a 

; Wert von 

A ln IYL 



db Ofdh 

"Escape" fuer IY 


Id a,30h 





cp 1 

Vergleich A mit IYL 


db Ofdh 

; Escape 

fuer IY 



jr z, end 

weiter, wenn IYL = 0 


1 d h , a 

; Wert von 

A in IYH 






; 





db Ofdh 

"Escape" fuer IY 


1 d a , 0 

; wg. Abfrage, ob Zero 



1 nc h 

IYH 1ncrementieren 

loop: 

push af 





Jr loop 

fuer naechstes Zeichen 


db Ofdh 

; "Escape" 

fuer IY 


end: 

> 

call 0000 



1 d e , h 

; von IYH 

ln E 






cal1 bdos 2 

; Zeichen 

anzeigen 


bdos 2 : 

1 d c , 2 



; 





call 0005 



db Ofdh 

; "Escape" 

fuer IY 



ret 



dec 1 

; IYL decrementieren 
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Mini-Lexikon 

die Zweite 


Das ’verbesserungswürdige’ Programm Mini-Lexikon aus Heft 4/89 liegt 
nun in einer übersichtlichen und erweiterten Form vor, aus vielen Ver¬ 
besserungsvorschlägen wurde diese herausgesucht, da sie das Arbeiten 
wesentlich vereinfacht und einige zusätzliche Funktionen zur Verfügung 
stellt, die gerade bei einem derartigen Programm benötigt werden. Trotz 
der Verbesserung ist der Umfang des Programms (4 kByte) recht niedrig 
gehalten. 


Nach dem Start des Programms wird fragt. Dies macht das Anwendungs- 
zuerst nach dem Arbeitslaufwerk ge- spektrum wesentlich größer, da nun 


mehrere Dateien auf dem 720-kByte- 
Laufwerk B verwaltet werden können. 
Als nächstes wird der Inhalt des ange¬ 
wählten Laufwerks ausgegeben, und 
Sie können den Namen der zu bearbei¬ 
tenden Datei eingeben. 

Da bisher noch keine Datei existiert, 
geben Sie einfach irgendeinen Namen 
wie zum Beispiel REZEPTE ein. Das 
Programm erstellt jetzt zwei Dateien 
mit den Endungen DAT und IDX. 

Nun wird eine Menüzeile angezeigt, in 
der folgende Funktionen zur Verfü¬ 
gung stehen: 

<E> ingeben 

Hier können Sie, wie schon von der er¬ 
sten Version des Mini-Lexikons ge¬ 
wohnt, Ihre Daten eingeben. 
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< L > oeschen 

Nach Eingabe des Suchbegriffs wird 
dieser Datensatz gelöscht. 

< P > rinter 

Die nächste Ausgabe beim Suchen oder 
bei der Wortübersicht wird auf den 
Drucker ausgegeben. 

<S>uchen 

Ein zuvor eingegebener Datensatz 
kann mittels dieser Funktion ausfindig 
gemacht werden und der Begleit- bzw. 
Erläuterungstext wird auf dem Bild¬ 
schirm oder Drucker ausgegeben. 


< W > orte 

Eine Auflistung aller Worte wird auf 
dem Bildschirm oder Drucker ausge¬ 
geben. 

< D > irectory 

Das Inhaltverzeichnis des zu bestim¬ 
menden Laufwerks wird ausgegeben. 

<F>iles 

Diese Funktion gibt genauso wie 'Di¬ 
rectory’ den Inhalt einer zu bestimmen¬ 
den Diskette aus. Als Ergänzung kön¬ 
nen Sie hier eine neue Datei eröffnen. 


< H > elp 

Gibt eine Kurzübersicht zu den einzel¬ 
nen Funktionen aus. 

E < x > it 

Das Programm wird beendet, und der 
Joyce meldet sich mit dem CP/M- 
Prompt zurück. 

(Herbert Moschitz/rs) 

Dieses Programm ist in BASIC geschrieben. Nach dem 
Ablippen sollten Sie es zuerst mit SAVE"LEXI¬ 
KON. BAS“ < RETURN > abspeichern. Später kann es 
dann unter Mallard-BASICmit RUN "LEXIKON. BAS“ 

< RETURN > und unter CP/M Plus mit A> BASIC 
LEXIKON < RETURN > wieder eingeladen und ge¬ 
startet werden. 


LISTING >MINI <. REMARK = >•<. 

<27> 1 osc$ = CHR$(27):c 1 s$=esc$+"H"+esc$+"E":1on$=esc$+ " 
P":1of$=esc$+"q":dop$=CHR$(14) 

<97> 2 bel$=CHR$(7):druck=0:worte=-l:1ine$=STRING$(90,1 
54):tr$=CHR$(149) 

<31> 3 e 11te$=0sc$+"M":LPRINT e11te$PRINT cls$ 

< 80> 4 G0SU8 490 

< 83 > 5 GOSUB 480 
<13> 6 GOSUB 500 

< 85 > 10 0N ERROR GOTO 430 

<7l> 13 atext$=1 on$+" <E>1ngeben <L>oeschen <P>r1nter < 
S>uchen <W>orte * <D>1rectory <F>11es <H>elp * e<X 
>1t. "+1of$ 

<19> 14 PRINT cla$ 

<25> 20 BUFFERS 150 

<64> 30 IF FIND$(da t f1le$) = "" THEN CREATE «l.datffle$, 1 
ndf11e$,2.112 :CL0SE #1 
<14> 40 OPEN "K", # 1,datf1le$,Indfile$,2 

< 7 > 50 FIELD #1,20 AS w$,90 AS s$ 

<84> 60 PRINT:PRINT 11ne$:PRINT atext$:PRINT 1ine$ 

<39> 70 ON INSTR("TpPsSeElLwWxXdDfFhH",INKEY$)+1 GOTO 7 
0.70,80,80,170,170,340,340,260,260,130,130,430,430 
,71,71,72,72,510,510 

<67> 71 GOSUB 490:GOSUB 480:GOTO 60 :REM *** DIRectory 

zeigen 

< 43 > 72 CLOSE:GOSUB 490:G0SUB 480:GOSUB 500:GOTO 10 :RE 

M *** Datenfile wechseln 
<83> 80 REM *** PRINTER - DRUCKEN 
<87> 90 druck=l : worte=-l 

<36> 100 PRINT "Die naechste Ausgabe erfolgt auch auf d 
em Drucker!";bei $ 

<82> 110 GOTO 60 
<22 > 120 ‘ 

<63> 130 e=SEEKRANK(#l,0,0) :REM **** WORTE 
<83> 132 IF druck=l THEN LPRINT dOp$;“SUCHBEGRIFFE DER 
DATEI: datfl 1 e$ : LPRINT 

< 6 > 140 WHILE e = 0 OR e = 101 

< 75 > 150 GET #1:PRINT w$;tr$;" "; :e=SEEKSET(#1,0 ) 

< 0> 152 IF druck = l THEN worte=worte+l:IF 0=(worte MOD 

4) THEN LPRINT:GOTO 152 ELSE LPRINT w$ : " ; " ; 

< 2 > 154 WEND 

<69 > 156 IF druck=l THEN LPRINT:druck = 0 

< 72 > 160 GOTO 60 

< 66 > 170 INPUT "Suchbegriff: ",xy$ :xy$=UPPER$(xy$):GOS 

UB 450:REM **» SUCHEN 

<64> 180 IF eoo THEN PRINT 1on$;bel$;" Keinen Datensat 
z zu diesem Suchbegriff gefunden! ";iof$:GOTO 60 
<46> 190 PRINT xy$ 

<15> 192 IF d ruck=1 THEN LPRINT:LPRI NT dop$:xy$ 

<23> 200 WHILE e = 0 
<66> 210 GET #1 

< 74> 220 PRINT s$ 

<85> 222 IF d ruck=1 THEN LPRINT s$ 

< 46 > 230 e = SEEKNEXT(#l,0) 

< 88 > 240 WEND 

< 25 > 242 IF druck = l THEN LPRINT:druck = 0 

< 71> 250 GOTO 60 

<30> 260 INPUT "Welchen Datensatz loeschen ? Suchbegrif 
f: ",xy$ :GOSUB 450:REM *** LOESCHEN 
<63> 270 IF e<>0 THEN PRINT 1on$;bel$;" Keinen Datensat 
z zu diesem Suchbegriff gefunden! ";iof$:GOTO 60 
<58 > 280 WHILE e = 0 OR e=101 
<14> 290 dum=DELKEY(#1,0) 

<20> 300 e = SEEKKEY(#l,0,0,xy$) 

<83> 310 WEND 

< 61> 320 dum=CONSOLIDATE(#l) 

<68> 330 GOTO 60 


Listing Mini-Lexikon 


<29> 340 INPUT "Suchbegriff: ",xy$. :GOSUB 450REM *** 

EINGABE 

<40> 350 PRINT xy$ 

< 92 > 360 LINE INPUT xs$ 

<42> 37 ° IF xs$="" THEN dum=CONSOLIDATE(#1):GOTO 60 
<12> 380 LSET w$=xy$:LSET s$=xs$ 

<74> 390 e=ADDREC(#l, 2 , 0 ,w$) 

< 9 > 400 PUT #1 

< 83 > 410 GOTO 360 
<25 > 420 ’ 

<91> 430 CLOSE #1 

<81> 440 LPRINT esc$:PRINT cls$:SYSTEM 

<96> 450 IF xy$ ="" OR LEN(xy$)>20 THEN PRINT bel$:"UNGU 
ELTIGE EINGABE! ":GOTO 60 

< 84 > 460 xy$=UPPER$(xy$) : xy$=xy$+SPACE$(20-LEN(xy$))• 

e=SEEKKEY(#l,0,0.xy$) 

<84> 470 RETURN 

< 48 > 480 REM SUBPROGRAMM DIRECTORY 

<10> 481 PRINT : PRINT 11ne$ : PRINT "Directory von Lau 
fwerk: ";lw$ : PRINT 11 net 
<70> 482 DIR 

<83> 485 PRINT:PRINT 11ne$:PRINT 

< 5 > 486 RETURN 

< 64 > 489 ’ 

< 9 > 490 REM SUBPROGRAMM Laufwerkwechsel 

< 56 > 491 PRINT 

<26> 492 INPUT "Aktuelles Laufwerk fuer die Daten Ist ( 
A,B,M) : ... ",1w$ 

< 78> 493 lw$ = UPPER$(lw$):uzu$ = be1$+1on$+” UNZULAESSIGE 

EINGABE! Bitte nochelnmal! “+1of$ 

< 4 7 > 494 IF lw$<>"A" AND lw$<>"B" AND lw$<>"M" THEN PRI 

NT:PRINT uzu$:PRINT:GOTO 492 

< 49 > 495 OPTION FILES lw$ ; RETURN 

< 66 > 499 ‘ 

<35> 500 REM SUBPROGRAMM Datenfilenamen eingeben 
<84> 501 INPUT "DATEINAMEN eingeben (max. Zeichen) : “ 
f 1 1 e$ 

<84> 502 flle$=UPPER$(f11e$):IF LEN(f11e$)>8 THEN PRINT 
:PRINT uzu$:PRINT:GOTO 501 

< 74 > 503 IF fl 1 e $ = " " THEN f11e$="MINI" 

<79> 504 datf11e$=f11e$+".DAT":Indf11e$=f11e$+".IDX" 

< 3 7 > 505 ‘ 

<89 > 506 RETURN 
<49 > 509 1 

< 56 > 510 REM *** HELP *** 

< 2 > 511 PRINT "EINGEBEN : neuen Suchbegriff (=Wort) un 

d Oatenfeldlnhalt(e), welche jeweils mit <RETURN>. 

. beendet werden. Eingabe eines Datensat 

zes mit 2-ma11 gern <RETURN> beenden!" 

<79> 512 PRINT "LOESCHEN : nach Eingabe des Suchbegriff 
s wird der Datensatz geloescht!" 

<65> 513 PRINT "PRINTER. : nach Aktivierung des Printer 
s erfolgt die naechste Ausgabe (WORTE oder SUCHEN) 

. auch auf dem Drucker! Danach schaltet 

das Programm automatisch wieder ab!"" 

<40> 514 PRINT "SUCHEN.. : nach Elnagbe des Suchbegriff 
a (= WORT) wird der Suchbegriff und der Inhalt des 
. Datensatzes, ausgegeben!" 

< 60 > 515 PRINT "WORTE... : zeigt alle gespelcherten Suc 

hbegrlffe alphabetisch sortiert an! " 

<11> 516 PRINT DIRECTORY: zeigt das Directory an! 

<70> 517 PRINT "FILES... : schliesst aktuelle Datendate 
1 ab und bietet die Moegllchkelt zu einer neuen... 

. Datei zu wechseln!" 

<55> 518 PRINT "HELP/EXIT: HELP lesen Sie gerade und EX 
IT beendet das Programm und geht zu CP/M zurueck!" 

< 0> 519 PRINT:GOTO 60 


Listing Mini-Lexikon 
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JOYCE Sonderheft 4 

Jetzt 120 Seiten! Supersoftware und Informationen. 


Aus dem Inhalt: 

- Strickmustergenerator 

- Wordstar-Verbesserungen 

- Bundesligasimulator 

- Super Reaktionsspiel 

- FILEMANAGER 

- Pulldown-Menüs 

- Stichwortverzeichnis 

- Astrologieprogramm 

- Diskettenmonitor 
Hauptstädte raten in LOGO 
Statuszeile für dBase und Basic 
Hardcopyroutine für 24-Nadler 

- LOGO macht Schachteln 

- dBase-Literaturverwaltung 

- Universelles Werkzeug zur Veränderung von 
dBase-Dateien 


JOYCE Sonderheft 4 

Best.-Nr. 367 


20,- DM* 


Bitte benutzen Sie die Bestellkarte. 


JOYCE DATABOX Sonderheft 4 


Hier finden Sie alle Programme und Dateien 
auf vier Diskettenseiten. 

470 KB nur vom Besten... 

Und dennoch behalten wir die alten Preise bei! 

Das Leistungsverhältnis, das sich für Sie 
bezahlt macht. 

Erhältlich als 3“-Disketten für alle 
PCW 8256/8512/9512 

Diskette 1 enthält alle Programme lauffähig. 
Diskette 2 enthält die Quellcodes. 

Disk. 1: Best.-Nr. 3671 30,- DM* 

Disk. 2: Best.-Nr. 3672 24,- DM* 

Kombipack Disk. 1 und 2: 

Best.-Nr. 3673 48,- DM* 

* Unabhängig von der Anzahl der bestellten Artikel 
berechnen wir für das Inland 4,- DM bzw. für das 
Ausland 6.- DM Porto und Verpackung. 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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JOYCE-PCW Sonderhefte 2 und 3 zum Preis von einem! 


DMV braucht Platz für neue Ideen - darum müssen wir unsere Lager räumen. 

Allen JOYCE-Besitzern machen wir deshalb ein einmaliges Angebot: 

JOYCE Sonderheft 2 und Sonderheft 3 sind ab sofort im Kombi-Pack zum Preis von 20,- DM beim Verlag zu beziehen 
- Sie sparen 50% gegenüber dem Einzelpreis! 

JOYCE Sonderhefte sind Sonderpublikationen der PC AMSTRAD International und bieten jeweils auf 120 Seiten 
ausschließlich erstmalig veröffentlichte Beiträge, Tips und Tricks zu PCW 8256, 8512 und 9512. 

Außerdem gibt es zu jedem JOYCE Sonderheft eine Databox, die alle im Heft veröffentlichten Programme lauffähig 
auf zwei 3“-Disketten enthält. Die Databox ist nicht im Frühlingsaktions-Preis inbegriffen. 


Aus dem Inhalt 
JOYCE Sonderheft 2: 

Programme: 

Adreßverwaltung 

Archivprogramm (Video-oder Literaturverwaltung) 
PASCAL-Compller in BASIC 
Suburbia (Spiel ähnlich Monopoly (R)) 
Turbo-PASCAL-Graflkroutinen ohne GSX 
Komfortable Balkengrafik 

Tips: 

JOYCE-Zweitlaufwerk selbst anschließen 
3-D-Plotter 

Etikettendruckprogramm 
Ordnung auf der Diskette mit LocoScript 
Funktionstasten selbst belegen 
Spaltensatz unter LocoScript 
dBase-Handbuch selbst ausdrucken 
LOGO- Funktionenzeichner 


Aus dem Inhalt 
JOYCE Sonderheft 3: 

Programme: 

Vokabeltrainer 

RAM-Monitor-Speicherinhalte verändern 
Memory-Spiel 
Mini-UTP-Programm 
Drucker-Spooler unter CP/M 
Disketten-Kopierprogramm bis 43 Spuren 
Reset ohne Datenverlust 

Tips: 

Grafik auf dem JOYCE-Drucker 
Tastaturbelegung unter CP/M und 
LocoScript ändern 
Reset ohne Datenverlust 
Super-Werkzeugkiste dBase 
Grafikutilities für LOGO 
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JOYCE, das Steuergenie 

Setzen Sie Ihren JOYCE PCW zum 
Steuern externer Anlagen ein 

Daß der JOYCE PCW nicht nur ein Textverarbeitungscomputer ist, hat er 
inzwischen bewiesen. Vielseitige Anwendungen belegen dies. Aber trotzdem 
fehlte immer noch das gewisse Etwas, was PC und C64 - um nur zwei zu 
nennen — schon seit geraumer Zeit haben. Die Rede ist von der Möglich¬ 
keit, externe Anlagen zu steuern. 


gründen nicht jede dieser Anlagen im 
Heft abbilden. 

Aufbau 

Das Interface fällt am Anfang durch 
seine saubere Verarbeitung und durch 
eine Plexiglasabdeckung auf, welche 
die anfälligsten Teile gegen versehent¬ 
liche Beschädigung schützt. 

Betrieben wird das Interface über eine 
externe 12-Volt-Stromversorgung, 
welche dem Paket beiliegt. Der An¬ 
schluß an den Computer erfolgt mittels 
eines Flachbandkabels, das direkt an 
den Expansionsport des JOYCE ange¬ 
schlossen werden kann. 

Der Kauf einer CPS 8256 enfallt also. 
Zum Arbeiten werden acht Eingänge 
und acht Ausgänge bereitgestellt, die 
mit jeweils zwei (Ausgänge) bezie¬ 
hungsweise drei (Eingänge) 4 mm her¬ 
ausgeführt sind. Diese werden durch 
INP- und OUT-Befehle unter Mallard- 
BASIC angesprochen. 


INP & OUT 

Der Out-Bcfehl bewirkt, daß auf die angesprochene 
Leitung eine Spannung von 5 Volt gelegt wird. Das 
Schaltinterface erkennt nun diese Spannung, verstärkt 
diese und benutzt sie in unserem Falle zum Umschalten 
der Schalter. 

Umgekehrt wird durch das INP-Konunando eine Span¬ 
nung erkannt, welche zuvor von dem Schallinterface 
übergeben wird. 


Um dieses “Manko“ aufzuheben, hat 
die Firma “Didaktische Hard und Soft¬ 
ware“ ein Schaltinterface entwickelt, 
welches im folgenden Text beschrie¬ 
ben wird. 

Schaltinterfaces? 

Schaltinterfaces werden zum Ansteu¬ 
ern externer Anlagen wie zum Beispiel 
Fischertechnik, LEGO oder auch Ei¬ 
senbahnen benutzt. Sie stellen die Ver¬ 
bindung zwischen Computer und exter¬ 
ner Anlage her. Bisher gab es kein In¬ 
terface für den JOYCE, was den Ein¬ 
satz des JOYCE in dieser Richtung 
sehr einschränkte. Wer eine solche An¬ 
lage sein eigen nennen wollte, mußte 
sich selber ein Steuerinterface entwer¬ 
fen. Wer aber in Sachen Hardwareba¬ 
stelei und Portadressierung nicht allzu 
bewandert war, mußte sich damit ab- 
finden, daß für ihn eine Steuerung sei¬ 
ner Anlage mit dem Computer nicht in 
Frage kam. Die Anlagen, die in unse¬ 


rer Redaktion erfolgreich mit dem 
Schaltinterface gesteuert wurden, kön¬ 
nen Sie den Abbildungen 1 und 2 ent¬ 
nehmen. Leider konnten wir aus Platz- 


Sollten jeweils acht Ein- und Ausgänge 
nicht ausreichen, ist es möglich, weite¬ 
re Interfaces über eine Mehrfachsteck¬ 
leiste anzuschließen und durch Abän- 
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derung der DIP-Schalterstellungen 
über andere Adressen anzusteuern. 
Durch Optokoppler sind sämtliche Ein- 
und Ausgänge galvanisch vom Compu¬ 
ter getrennt. 

Die Ausgänge sind zusätzlich über Re¬ 
lais herausgeführt, die maximal 24 
Volt schalten können. Der Anschluß 
von 220-V-Relais ist jedoch ohne Pro¬ 
bleme möglich. 

Anschlußfehler können sich so in der 
Regel nicht negativ auf die Hardware 
des JOYCE PCW auswirken. 

Maximal kann die Spannung eines ex¬ 
ternen Trafos 24 Volt betragen. 

Das Handbuch 

Dem Paket liegt ein 18seitiges Hand¬ 
buch bei, welches wichtige Informatio¬ 
nen zu dem Schaltinterface enthält. 


Abb 3: Durch das Interface ist das Einsatzgebiet des JOYCE auch auf Schulen ausgeweitet 


Didaktische Hard- und Software 
Zähringerstraße 7 
7880 Bad Säckingen 

wo Sie das Interface zu einem Preis von 
390, — DM beziehen können. 


Ebenso sind einige Beispielprogramme 
sowie Beispielschaltungen für den An¬ 
fänger in dem Heft enthalten. Sie ver¬ 
deutlichen die Ansteuerung der einzel¬ 
nen Kanäle. 

Wer als Anfänger mit diesem Schaltin¬ 
terface arbeitet, wird dem Handbuch 
neben Interface-spezifischen Informa¬ 
tionen auch wichtige Informationen 
über LDRs, Reed-Kontakte und vieles 
mehr entnehmen können, was für spä¬ 
tere “Hardwarebasteleien“ interessant 
sein kann. 

Anwendungen 

Das Interface kann für viele unter¬ 
schiedliche Zwecke genutzt werden. 


Abb 2: Nachdem der Gegenstand die Lichtschranke unterbricht, steht das Laufband still 


Für den Sohn / die Tochter stellt es eine 
Alternative zum Steuern von selbstge¬ 
bauten Fischertechnik- oder LEGO- 
Anlagen dar, was eine Weiterbildung 
in Physik mit sich bringt. 

Diese Weiterbildung könnte auch in 
Schulen praktiziert werden, wo ja sonst 
jeder Schüler im Normal fall höchstens 
einmal, nämlich bei einer Prüfung, mit 
dem Verdrahten von Schaltungen kon¬ 
frontiert wird. 

Ein Einsatz in professioneller Rich¬ 
tung, wie in Kleinlaboren, wäre sicher¬ 
lich auch interessant. Mit etwas Ge¬ 
schick ließen sich sicherlich wichtige 


Arbeiten über den Computer erledi¬ 
gen. Des weiteren bietet sich das Schal¬ 
tinterface geradezu an, eine Alarman¬ 
lage zu steuern. 

Fazit 

Mit dieser Schnittstelle ist es der Firma 
“Didaktische Hard- und Software“ ge¬ 
lungen, für den JOYCE PCW eine 
Marktlücke zu füllen. Die ordentliche 
Verarbeitung und auch der übersichtli¬ 
che Aufbau muß noch einmal erwähnt 
werden. 

Als negativ muß noch angemerkt wer¬ 
den, daß im Lieferumfang keine Kabel 
enthalten sind, die später zum Arbeiten 
mit dieser Schnittstelle notwendig sind. 

Trotz des hohen Preises von 390,- DM 
sollte man sich überlegen, ob nicht al¬ 
lein schon der Lerneffekt ein gutes Ar¬ 
gument ist, um den Kauf dieses Schalt¬ 
interfaces in Betrachtung zu ziehen. 

Wenn noch Fragen offengeblieben sind 
oder wenn Sie die Schnittstelle bestel¬ 
len möchten, wenden Sie sich bitte an 
die Firma 
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_Joyce Programmsammlungen_ 

Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer im Rahmen einer 
Programmsammlung in der Angebotspalette des DMV Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 
Anwendungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom¬ 
plettes Programmpaket mit 3“-Diskette und Bedienungsanleitung ausgeliefert. 


Joyce Programmsammlung VOL. VI 


< i {BMI H«' iid^ri 
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Die universell einsetzbare 
Tabellenkalkulation zum Erstellen 
von Monatsbiianzen, T-Konten 
etc. für die PCW(JOYCE)-Familie 


Ihvjli C*;n (II Mibtll Cu.'*.,,, 
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Leistungsumfang: 

Auf der mitgelieferten Diskette finden Sie alle zur Erstellung 

eine Startdiskette nötigen Programme und Dateien. Die Be¬ 
dienungsanleitung enthält eine ausführliche Erklärung aller 

Funktionen. 

Funktionen: 

- kurze Einarbeitungszeit, da eine einfache und übersicht¬ 
liche Menüführung Fehleingaben abfängt oder gar nicht 
erst zu läßt 

- schnelles Arbeiten durch Belegung der Funktionstasten 
mit den wichtigsten Funktionen 

- auf Wunsch wird die Formel des aktuellen Feldes am un¬ 
teren Rand eingeblendet 

- besonders schnelle Bearbeitung von Eingaben und Be¬ 
rechnungen 


- arbeitet vollständig auf dem Memory-Laufwerk, was 
Schreib-/Leseoperationen wesentlich beschleunigt 

- bis zu 68 Zeichen pro Formel möglich 

- eigene Befehle zur Verkürzung der Formeln 

- drei verschiedene Schriftarten beim Drucken 

- standardmäßig 2574 frei belegbare Felder 

- akzeptiert sogar Exponentenschreibweise 

Joyce Programmsammlung Vol. VI TABKALK für alle JOYCE 
(PCW's) braucht den Vergleich mit vielen teureren Program¬ 
men nicht zu scheuen. 

Joyce Programmsammlung Vol. VI für alle JOYCE PCW’s 

Best.-Nr.: 22 i 3“-Diskette 59, - DM * 

unverbindliche Preisempfehlung 


VOL.V 


Ukm tu iirfNrlua hIhm ' iua (ll lilti <|i RIWI.Ui ' 


Das maßgeschneiderte 
DATENBANKSYSTEM für die 
PC W (JOYCE) -Fa m i I ie 
(PCW 8256, PCW 8512, PCW 9512* *) 

Max. 27 Felder pro Datensatz, 50 Stellen 
pro Feld, 35.000 Sätze pro Datei, mini¬ 
maler Disketten-Speicherbedarf! 


Die wichtigsten Leistungen von Vol. V auf einen Blick: 

- Generiert Standard-Direktzugriffsdateien (BASIC), die auch in Eigenprogram¬ 
me eingebunden werden können. 

- Vollautomatisch generierte Maske zur Datenerfassung, Datenänderung und 
Datenlöschung. 

- Reservierung des nötigen Speicherplatzes auf der Diskette, mit automatischer 
Erweiterung bei Erreichen der Reservierungsgrenze. 

- Gelöschte Datensätze werden vorrangig neubelegt, bevor weitere Sätze ver¬ 
braucht werden. 

- Auf Wunsch Datentransfer aus vorhandenen in neuangelegte Dateien. 

- Automatische Eintragung neuer Dateien in das Disketten-Hauptmenü 

- Alle Programme werden auf der RAM-Floppy gehalten. 

- Listenerstellung (Drucker oder Bildschirm) mit automatischer Spal¬ 
tenformatierung. 

- Daten können selektiert (ausgewählt, ausgeschlossen) werden. 

- Auf Wunsch Summen numerischer Spalten. 

- Freie Wahl der Sortierung: Mehrfachsortierkriterien. 


- Ohne Lernaufwand SOFORT voll anwendbar, keine Befehlswörter. 

- Nach 1-2 Minuten können Sie bereits über eine komfortable Maske Daten er¬ 
fassen. 

- Druckmasken für die beliebig sortierte Datenauflistung am Bildschirm oder am 
Drucker brauchen Sie nicht erst mühselig zu programmieren, sie werden vol¬ 
lautomatisch für beliebige Datenfelder und Spaltenfolgen generiert. 

- Bei mehrseitigen Auflistungen am Bildschirm Direktsprung zu jeder beliebigen 
Seite. 

- Einmal gewählte Druckparameter werden auf Wunsch gespeichert, die ent¬ 
sprechenden Listen können jederzeit abgerufen werden. 

Sofort Ergebnisse statt (frustrierender) Erlebnissel 

VOL. V für Joyce/PCW 8256/8512/9512** mit ausführlicher 
Bedienungsanleitung 

Best.-Nr.: 220 3“-Diskette 99,— DM* 

unverbindliche Preisempfehlunq 

** PCW 9512 auf Anfrage 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 

—DMV-verlag - Postfach 250 - 3440 Eschwege— 
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BildEditor 


Funktion: Grafikprogramm zum Erstellen von hochauflösenden Grafiken, 
welche in eigene Programme eingebunden werden können sowie deren 
Ausgabe auf dem JOYCE-Drucker. 

Leistungsumfang: Der mitgelieferten Diskette können sie alle zum Arbei¬ 
ten mit dem Programm benötigten Dateien entnehmen. Für alle Turbo- 
Pascal-Programmierer wird auch der Programmtext mitgeliefert. 

Funktionen: Durch das Unterscheiden zwischen Grob- und Feinbearbei¬ 
tung ist es möglich, brilliante Grafiken auf das Pixel genau zu zeichnen. 
Lösch- sowie Invertierfunktion sind in allen Bearbeitungsmodi aufrufbar. 
Auch Texte können bei der Grobbearbeitung in das Bild gebracht werden. 

Im Dateimenü steht neben einer Lade- und Speicheroption noch eine Funk¬ 
tion zur Verfügung, welche zwei Bilder miteinander mischt. Neben dem Ver¬ 
satz des linken Randes vor dem Drucken können noch vier verschiedene 
Druckformate angewählt werden. 


ausführlicher Bedienungsanleitung 


Best.-Nr.:219 


3“-Diskette 


59,- DM* 

unverbindliche Preisemptehlung 


1. Feld-Tab 

_ F Ein BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen, Vor¬ 
drucken und Formularen. Feld-Tab ist menügesteuert und bietet die Anwahl 
der einzelnen Funktionen, wie unter LocoScript gewohnt. Geben Sie Sei¬ 
tenlange. Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen Sie 
Schriftweite, Schriftart und Text. Text kann mit LocoScript erstellt werden 
und nach Umwandlung in eine ASCII-Datei in Feld-Tab eingelesen werden. 
Weitere ASCII-Editoren können ebenso verwendet werden wie der komfor¬ 
table programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 

2. Gsxplot 

Ein Grafikpaket für Statistiken, Geschäftspräsentationen und viele andere 
grafische Anwendungen! Überein Menü sind folgende Funktionen wählbar: 
■ Balkendiagramme ■ Kurvendiagramme • Strichgrafik 
• Punktediagramme • Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich¬ 
tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 
als auch auf dem Drucker dargestellt werden. Gsxplot braucht den Ver¬ 
gleich mit wesentlich teurerer Software nicht zu scheuen! 

VOL.III für Joyce/PCW 8256/8512 zwei Disketten 
mit ausführlicher Bedienungsanleitung 


Best.-Nr.: 217 


3“-Diskette 


69,- DM* 

unverbtndliche Preisemptehlung 


SUPERdat 

Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. 
Leistungsumfang: MASKE ist das Vorprogramm, mit dem Sie die Feld¬ 
namen und -längen sowie die Länge des Suchbegriffs voreinstellen 
können, 

SUPERdat ist das Hauptprogramm, welches die Daten der gewünschten 
Datei verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharien, so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht 
Felder enthalten, wovon jedes max. 40 Zeichen enthalten darf. Die Gesamt¬ 
länge eines Datensatzes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)funktion 
für SUPERdat zur Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B. mit RPED erstellt) werden automatisch vom Anwender vorausge¬ 
wählte beliebige Einträge aus beliebigen SUPERdat-Dateien an beliebiger 
Stelle eingefügt. Weiterhin können 30 beliebige Datensätze in eine für Lo¬ 
coScript lesbare Datei umgewandelt werden. 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Grundrechenarten auch Winkelfunktionen, quadratische und Prozentfunk¬ 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 

VOL.II für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.: 216 


3“-Diskette 


49, - DM* 

unverbindliche Preisempfehlung 


1. Der Character-Designer 

Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/ 
8512 und deren Darstellung am Bildschirm! Ausdruck von ASCII-Files in 
diesem Zeichensatz unter CP/M Plus. 

Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensätzen und deren Speicherung er¬ 
laubt. CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus. 

CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensät¬ 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter, 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
Floppy-Steprate. 

2.MGX 

Funktion: Grafische Darstellung von mathematischen Funktionen und be¬ 
liebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B. unter Mallard-Basic nicht zur Verfü¬ 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die¬ 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden. 

VOL.I für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 

Best.-Nr.: 215 3“-Diskette 59,-DM* 

unverbindliche Preisempfehlung 


D M V - Angebot 

Praktische Textverarbeitung mit Joyce 

Ein Buch/Disketten-Paket. Der Autor Jürgen Sie¬ 
ben zeigt in diesem Buch Möglichkeiten der Text¬ 
verarbeitung auf, die Sie von LocoScript nicht er¬ 
wartet hätten... Von der Pike auf werden Sie an 
den Umgang mit Schablonen und Standardlayout 
herangeführt. Einige Abstecher führen Sie an¬ 
hand anschaulicher Beispiele an Textverarbeitung 
und CP/M (ED/Wordstar) heran. 

Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fort¬ 
geschrittene 

- Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstallationsdatei für das Pro¬ 
gramm Wordstar 

- Aleatorische Poetik: Der Computer dichtet 


Auf Diskette: Uber 50 Dateien mit Schablonen, Briefen. Postkarten, Serien- 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften, 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten, 

3“-Diskette Best.-Nr. 401 DM 89, — * 


Joyce 

Bücher-Kiste 


Aus dem Data-Becker-Angebot 

Das Große LOGO-Buch zu CPC und Joyce 

LOGO kann mehr, als Sie denken. LOGO ist heute eine 
anerkannte Sprache bei vielen ehrgeizigen Programmprojek¬ 
ten. Das reicht bis hin zur Erstellung von Kl-Programmen. 
Hier das Buch für CPC- und Joyce-Besitzer, die viele Vorteile 
dieser Sprache kennenlernen wollen. Um nur einige Stich¬ 
worte zu nennen: Listenverarbeitung, Prozeduren, Rekur¬ 
sionen, Sortierroutinen, Maskengenerator. Nutzen Sie diese 
Sprache für Ihre eigenen, ehrgeizigen Programmideen. 


410 Seiten Best.-Nr. 417 


DM 39,-* 


Programmierwissen pur im Westentaschenformat 


Führer zum Joyce 


Best.-Nr. 450 

DM 

Führer zum CP/M 


Best.-Nr. 452 

DM 


Aus dem Franzis-Verlag-Angebot 

Den Joyce programmieren 

Der Autor hat es sich zur Aufgabe gemacht, den Joyce als 
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Aus diesen Listings lassen sich zahlreiche ausgefeilte Pro¬ 
grammtricks entnehmen. Der Aufbau und die Bedienung des 
CP/M-Betriebssystems werden ebenfalls für den Joyce- 
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sierten Joyce-Eigner dar. 
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Von Kurven und 
Graphen 

MATHCAD - Grafische 
Darstellung von Funktionen 

Nachdem wir bereits einige Programme zum Thema 
’Funktionsplotter’ und ’ Kurvendiskussion ’ für die CPCs 
im Heft hatten, sind diesmal die PCs dran. ’MATH- 
CAD’ erfüllt die Anforderungen, die an ein solches Pro¬ 
gramm gestellt werden. 



Mil 'MATHCAD' lassen sich einfach Funktionen grafisch darstellen 


Gehen Sie noch zur Schule, oder haben 
Sie aus anderen Gründen mit diesem 
'interessanten’ Thema zu tun? Dann ist 
dieses Programm genau das richtige 
für Sie. Die vorliegende Kurvendiskus¬ 
sion (Programmname ’MATHCAD. 
BAS’) bietet Ihnen die Möglichkeit, die 
Graphen von bis zu drei Funktionen am 
Bildschirm darzustellen. Darüber hin¬ 
aus ermöglicht sie Ihnen, eine der 
Funktionen zu diskutieren. Für diesen 
Zweck stehen Ihnen folgende Optionen 
zur Verfügung: 

— Berechnung von Nullstellen 

— Berechnung von Extrema 

— Berechnung von bestimmten 
Integralen 

— Berechnung von Funktionswerten 

— Bestimmung des Symmetrie- 
Verhaltens 

— Zeichnen der ersten 
Ableitungsfunktion 

— Zeichnen der Umkehrfunktion 

— Zeichnen von Integralfunktionen 

Um das Ganze übersichtlicher zu ge¬ 
stalten, haben Sie außerdem die Mög¬ 


lichkeit, die Grafik beliebig mit Texten 
und Pfeilen zu versehen, Unerwünsch¬ 
tes zu löschen und die Fläche unter dem 
Graphen zwischen zwei Grenzen aus¬ 
malen zu lassen. All dies bietet Ihnen 
die Option 'Beschriften’. Ausgewählt 
werden alle Optionen durch die Maus, 
wodurch die Bedienung eigentlich kin¬ 
derleicht wird. 

Zum Programmablauf 

Vor dem Starten müssen Sie darauf 
achten, daß die gewünschten Funktio¬ 
nen (maximal 3) in den Zeilen 5 bis 7 
stehen. Dabei ist daraufzu achten, daß 
nur eine Funktion auch nachher disku¬ 
tiert werden kann, und zwar die, die in 
Zeile 5 steht. Wenn das geschehen ist, 
können Sie das Programm starten. Der 
Bildschirm wird darauf in zwei Hälften 
geteilt, und Sie werden gebeten, die 
Zeichengrenzen in x- und in y-Rich- 
tung einzugeben. Darauf werden Sie 
nach der Anzahl der Funktionen ge¬ 
fragt, die gleich der Zahl der Funktio¬ 
nen ist, die Sie vor dem Starten einge¬ 


geben haben. Haben Sie die verlangten 
Werte eingegeben, baut der Computer 
ein Koordinatensystem auf, in das er 
anschließend die Graphen der Funktio¬ 
nen zeichnet. 

Zum Schluß noch ein kleiner Nachtrag. 
Da die Möglichkeit, eine Hardcopy zu 
erstellen, im Programm selber nicht 
geboten ist, müssen Sie, wenn Sie eine 
solche erstellen wollen, den Computer 
mit Diskette 1 (MS-DOS) starten. Hier 
geben Sie dann graphics/R ein, legen 
Diskette 2 in das Diskettenlaufwerk 
und geben ’gemstart’ ein. Eine Hard¬ 
copy können Sie dann durch gleichzei¬ 
tiges Drücken von < Shift > und 
<PrtSc> erstellen. 


Wichtig 

Beim vorliegenden Programm soll¬ 
ten Sie die Zeilennummern unbe¬ 
dingt mit eingeben, da die Funktio¬ 
nen in Zeilennummern einzubinden 
sind. 


(Georg Wirrer/jb) 


1 REM ******************************************** 
******************** 

2 REM *** KURVENDISKUSSION 1989 by G. W 

1rrer *** 

3 REM ******************************************** 
******************** 

4 CLS:GOTO 10 

5 ON ERROR GOTO 8:yy=SIN(x):GOTO 9 

6 ON ERROR GOTO 8:yy=x:G0T0 9 

7 ON ERROR GOTO 8:yy=x:G0T0 9 

8 yy=1E9:RESUME 9 

9 ON ERROR GOTO 0:RETURN 

10 CLOSE WINDOW 3:CLOSE WINDOW 4:FOR 1=1 TO 5:CL0S 
E #1:NEXT:OPEN #1 WINDOW 1:SCREEN GRAPHICS 640 
FIXED, 200 FIXED 

11 WINDOW *1 FULL:WINDOW #1 OPEN:USER #1 SPACE 600 
, 400 

12 DIM fy(330),f(330):w=0:anz=l:t=0: u = 0:o=0: 

13 SET EFFECTS(1):WINDOW TITLE "KURVENOISKUSSION 

1989 by G. Wirrer" 

14 LINE 355;2,355;396 1 634;396,634;2 1 355;2 WIDTH 3 
COLOR(ll):LINE 359i7,359;391,630;391,630;7,357; 

Llsting MATHCAD 


7 WIDTH 3 COLOR(ll) 

15 LINE 2;2,2;396,352;396,352;2,2;2 WIDTH 3 C0L0R( 
11):LINE 6;7,6;391,348;391,348;7,6;7 WIDTH 3 CO 
LOR(11) 

16 LINE 360;135,629;135 WIDTH 4 COLOR(11):LINE 360 
;50,629;50 WIDTH 4 COLOR(ll) 

17 SET POINTS(8):SET COLOR(4):MOVE 20;378:PRINT"Gr 
aphen der Funkt 1onenMOVE 370;378:PRINT"Option 
an":SET COLOR(l) 

18 MOVE 20;200:PRINT COLOR(2) "Zeichengrenzen: " 

19 MOVE 20;180:PRINT"x-Achse: INPUT"",x1;:PRINT 

“ - ";:INPUT"",xr 

20 MOVE 20;165:PRINT"y-Ach3e: ";:INPUTyu;:PRINT 
" - INPUT"",yo 

21 MOVE 20;150:PRINT"Zahl der Funktionen: ";:INPUT 

" " , ma 

22 FOR 1=220 TO 145 STEP -1:LINE 15;1,300;1 COLOR( 
0):NEXT 

23 pl=300*ABS(yo)/(ABS(yu)+ABS(yo))+40:pl=380-pl 

24 p2=310*ABS(xl)/(ABS(xr)+ABS(x1))+20:p3=300/(ABS 
(yo)+ABS(yu)):p4=310/(ABS(xr)+ABS(x1)):abl=p4:a 
b2 = p3 
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25 IF abl <20 THEN abl = at>l* 10 : GOTO 25 

26 IF abl>200 THEN abl=abl/10:GOTO 26 

27 FOR 1=p2 TO 330 STEP abl:LINE 1;40,1;340 STYLE 
(6) COLOR(3):NSXT 

28 FOR 1=p2 TO 19 STEP -abl:LINE 1;40,1;340 STYLE 
(6) COLOR(3):NEXT 

29 IF ab2<20 THEN ab2 = ab2*10:GOTO 29 

30 IF ab2 >200 THEN ab2 = ab2/10:GOTO 30 

31 FOR 1=pl TO 340 STEP ab2:LINE 20;i,330;i STYLE( 
3) COLOR(3):NEXT 

32 FOR 1=pl TO 40 STEP -ab2:LINE 20;i,330;i STYLE( 
3) COLOR(3):NEXT 

33 LINE 10;pl,340;pl START 1 END 1 COLOR(11):LINE 
p2;20,p2;360 COLOR(ll) START 1 END 1:M0VE p2+5; 
360:PRINT "y":MOVE 342;pl-15:PRINT"x" 

34 IF p2+abl<331 THEN MOVE p2+abl-8;pl-12:PRINT ab 
1/P4 

35 IF p2-abl>19 THEN MOVE p2-abl-8;pl-12:PRINT -ab 
1/p4 

36 IF pl+ab2<341 THEN MOVE p2+l;pl+ab2-6:PRINT ab2 
/ P 3 

37 IF pl-ab2>39 THEN MOVE p2 + 2;pl-ab2-4:PRINT -ab2 
/p3 

38 FOR za=ma TO 1 STEP -1:F0R fx=20 TO 330:x=(fx-2 
0)/p4+x1 

39 ON za GOSUB 5,6,7 

40 fy(fx)=ROUND((yy-yo)*p3+341):NEXT 

41 FOR f x=21 TO 330 

42 IF f y (fx-1)>40 AND fy(fx-l)<340 AND fy(fx)>40 A 
NO fy(fx ) < 340 THEN LINE fx-1;fy(fx-1),fx;fy(fx) 

COLOR(za+1) 

43 NEXT:NEXT 

44 RESTORE 45:F0R 1=1 TO 10:READ w$,w1,w2:MOVE 365 
;wl:PRINT COLOR(ll) w$:NEXT 

45 DATA Able1tungsfunkt1on,360,1,Intagra1funktlon 
F(x),345,2,Umkehrfunktion,330,3,Nullstellen:,31 
5,4,Symmetrie:,285,5,bestimmtes Integral,255,6, 
Funktionswerte:,225,7,Extrema:,180,9 

46 DATA Beschrlftung,30,10,Programmende,15,11 

47 f1=0 

48 RESTORE 45 

49 READ w$,wl,w2 

50 ym=YMOUSE:ym=ym*400/l77 

51 IF (ym>=wl) AND (ym<=wl+ll) THEN MOVE 365;wl:PR 
INT COLOR(2) w$:f1=1:GOTO 54 

52 IF fl=l THEN fl=0:MOVE 365;wl:PRINT COLOR(ll) w 

$ 

53 IF w2=11 THEN 48 ELSE GOTO 49 

54 taste=BUTTON:IF taste=0 THEN MOVE 365;wl:PRINT 
COLOR(11) w$:GOTO 56 

55 GOTO 50 

56 PRINT CHR$(7);:IF w2=5 OR w2=6 THEN GOSUB 190 

57 IF w2=11 THEN END 

58 ON w2 GOSUB 60,70,117,79,93,108,183,108,121,132 
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59 GOTO 45 

60 REM ♦** Ableitungsfunktion *** 

61 FOR fx=20 TO 330:x=(fx-20)/p4+x1:GOSUB 5:fyl=yy 
:x=x+lE-4:GOSUB 5:fy2=yy 

62 st=(fy2-fyl)/lE-4 

63 IF fy2=lE9 AND fy3=lE9 THEN 3t=lE9 

64 x=x-1E-4:x=x+ 1E-6:GOSUB 5:fy2=yy:st2=ROUND((fy2 
-fyl)/lE-6,3) 

65 x=x-2E-6:GOSUB 5:fy3=yy:st3=R0UND((fy1-fy3)/1E- 
6,3) 

66 IF ABS(st2-st3)>0.1 THEN PRINT CHR$(7);:IF (fy( 
fx)< 341) AND (fy(fx)>40) THEN PLOT fx;fy(fx) MA 
RKER (4) 

67 f(fx)=ROUND((3t-yo)*p3+341):NEXT 

68 FOR fx=20 TO 330:f1=f(fx):IF fl<340 AND fl>40 T 
HEN PLOT fx-1;fl COLOR(7) 

69 NEXT:RETURN 

70 REM *** Integralfunktlon *** 

71 MOVE 370;120:PRINT COLOR(5);w$:MOVE 370;104:PRI 
NT"x":MOVE 370;90:PRINT CHR$(244):MOVE 370;80:P 
RINT CHR$(245):MOVE 370;66:PRINT"a M 

72 MOVE 390;85:PRINT"We rt für a: “;:INPUT “ M ,a:n=4 
0 

73 GOSUB 186:FOR fx=20 TO 330 STEP 2:b=(fx-20)/p4+ 
xl:flag=l 

74 IF b<a THEN SWAP a,b:flag2=l 

75 GOSUB 112:IF flag2=l THEN SWAP a,b:f1ag2=0:f=-f 

76 fy=ROUND((f-yo)*p3+341) 

77 IF fy > 40 AND fy<340 THEN PLOT fx.fy COLOR(9):PL 
OT fx+1;fy COLOR(9) 

78 NEXT:flag=0:RETURN 

79 REM *** Nullstellen *** 

80 GOSUB 188:MOVE 370;104:PRINT"2 Startwerte, inne 
rhalb derer f(x)":MOVE 370;90:PRINT"e1 ne Nullst 
eile besltzt:":za=l:gr=lE-8 

81 MOVE 370;77:PRINT"xl: ";:INPUT "",xx1 ; :PRINT" 
x2: ";:INPUT "" ,xx2 

82 GOSUB 166:x=xxl:GOSUB 5:fxl=yy:x=xx2:GOSUB 5:fx 
2=yy 

83 IF fxl*fx2>0 THEN RETURN 

84 xx3 = xx2-(xx2-xxl)/(fx2-fxl) * f x 2:za = za +1:IF za/2 
0=ROUND(za/20) THEN gr=gr*10 

85 x=xx3:GOSUB 5:fx3=yy 

86 IF ABS(fx3)<gr THEN 91 

87 IF fx3*fx2 >0 THEN 89 

88 xxl=xx2:fxl=fx2:GOTO 90 

89 fxl=fxl/2 

90 xx2=xx3:fx2=fx3:GOTO 84 

91 :MOVE 365+w;300:PRINT "x=";xx3:w=w+135:IF w>135 

THEN w=135 

92 RETURN 

93 REM *** Symmetrie *** 

94 GOSUB 188:MOVE 370;104:PRINT"So11 der Graph auf 

";:PRINT COLOR(7) "P";:PRINT "unkt-":M0VE 370; 
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NEU: Heißer Draht 


mit Durchwahl! 

Haben Sie Fragen, die nicht warten können? Dann rufen Sie uns an! Unser Leser-Telefonservice steht Ihnen 

jeden Mittwoch 
von 17.00 bis 20.00 Uhr 

zur Verfügung. 

Sie erreichen Ihren Redakteur jetzt direkt unter einer Durchwahlnummer. Auf Ihren Anruf freuen sich: 

Claus Daschner (CPC) Jürgen Borngießer (CPC, PC) Ralf Schößler (PCW) 

(0 56 51) 80 09 - 16 (0 56 51) 80 09 - 17 (0 56 51) 80 09 - 18 

Achtung: Die in früheren Heften veröffentlichte Sammelnummer ist ab sofort ungültig - diese Nummer bitte 
nicht mehr anwählen! 
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90:PRINT "oder ";:PRINT COLOR(7) "A";:PRINT"chs 
ensymmetrle hin unte r-" : MOVE 370 ; 76 : PRINT 11 sucht 
werden? INPUT "",a$ 

95 GOSUB 186:IF a$<>"a" AND a$<>"A" AND a$<>"P" AN 
D a$< >"p" THEN 94 

96 IF a$="P" OR a$="p" THEN 102 

97 GOSUB 188:MOVE 370;104:PRINT"Achse: x = ";:INPU 
T " " , a 

98 FOR 1=1 TO 5 STEP 0.1:x=a+1:GOSUB 5 : fyl = yy:x = a- 
1:GOSUB 5 

99 IF (fyl-yy)<0.0001 THEN NEXT:GOTO 101 

100 MOVE 365;270:PRINT "keine Symmetrie bezügl. x= 
";a:RETURN 

101 MOVE 365; 270:PRINT “Achsensymmetrie bezügl. x = 
";a:RETURN 

102 GOSUB 188:MOVE 370;104:PRINT"x-Koord1anate des 

Punktes: ";:INPUT "" , a 

103 MOVE 370;90:PRINT"y-Koordinate des Punktes: 

:INPUT "",b:GOSUB 186 

104 FOR 1=1 TO 5 STEP 0.1:x=a+1:GOSUB 5:fyl=yy:x=a 
-1:GOSUB 5:fy2=yy 

105 IF (fyl-b)-(b-fy2)<0.0001 THEN NEXT:GOTO 107 

106 MOVE 365;270:PRINT "keine Symmetrie bezügl. P( 

b;"J“:RETURN 

107 MOVE 365;270:PRINT "Punktsymmetrie bezügl. P(" 
;a;"/";b;")":RETURN 

108 REM **# bestimmtes Integral *** 

109 GOSUB 188:MOVE 370;104:PRINT"a2":MOVE 370;90:P 
RINT CHR$(244):MOVE 370;80:PRINT CHR$(245):MOV 
E 370;66:PRINT'al" 

110 MOVE 390;66:PRINT"Wert für al ";:INPUT "",a:MO 
VE 390;104:PRINT"Wert für a2 ";:INPUT "",b:MOV 
E 390;85:PRINT"Zahl n der Intervalle: “;:INPUT 

" “, n 

111 GOSUB 186 

112 f=0:h=(b-a)/n:x=a-h/2:REPEAT 

113 IF b>a THEN x=x+h:GOSUB 5:f=f+h*yy 

114 UNTIL x > = b-h/2 

115 IF flag THEN RETURN 

116 MOVE 365;240:PRINT "von ";a;" bis ";b;": ";:f = 
ROUND(f,6):PRINT f:RETURN 

117 REM *»* Umkehrfunktion *** 

118 FOR fx=40 TO 340 STEP 2 

119 x=(fx-40)/p3+yu:GOSUB 5:fyl=ROUND((yy-xr)*p4+3 
30):x=(fx-39)/p3 + yu:GOSUB 5:fy2 = ROUND((yy-xr )* 
p4+330):IF fyl>20 AND fyl<330 AND fy2>20 AND f 
y2 < 330 THEN LINE fy1;fx,fy2;fx+ 1 COLOR(5) 

120 NEXT:RETURN 

121 REM *** Extrema *** 

122 GOSUB 186:MOVE 370;110:PRINT"Geben Sie zwei St 
eilen sin,":MOVE 370;90:PRINT"zwisehen denen f 
(x) ein Extremum hat":MOVE 370;70:PRINT"x1: "; 
:INPUT xl;:PRINT" x2: ";:INPUT "" p x2:GOSUB 

186 

123 x=x1:GOSUB 5:fyl=yy:x=x1+1E-6:GOSUB 5:fy2=yy 

124 stl=(fy2-fyl)/lE-6:x=x2:GOSUB 5:fyl=yy:x=x2+lE 
-6:GOSUB 5:fy2=yy 

125 st2=(fy2-fyl)/lE-6:IF SGN(s 11)=SGN(s 12) THEN R 
ETURN 

126 x3=(xl+x2)/2:x=x3:GOSUB 5:fyl=yy:x=x+1E-6:GOSU 
B 5:fy2=yy 

127 St3=(fy2-fyl)/lE-6:IF SGN(st 1)=SGN(s13) THEN x 
l=x3 ELSE x2=x3 

128 IF ABS(st3)<1E-5 THEN 130 

129 GOTO 123 

130 MOVE 365+o;wl-14:PRINT"x=";x3:o=o+100:IF o>100 

THEN o=100 

131 RETURN 

132 REM *** Beschriftung *** 

133 GOSUB 186:FOR i=361 TO 628 STEP 89:LINE 1 ; 51,i 
;133 WIDTH 4 COLOR(2):NEXT:FOR 1=51 TO 133 ST 
EP 41:LINE 361;1,629;i WIDTH 4 COLOR(2):NEXT 

134 LINE 380;100,425;115,421;107,425;115,417;118 W 
IDTH 3 COLOR(4) 

135 LINE 480;60,510;75 WIDTH 14 COLOR(6):LINE 470; 
65,4 70;85 WIDTH 7 COLOR(2):FOR 1 =467 TO 473:LI 
NE 1;65,470;58 COLOR(4):NEXT 

136 MOVE 570;60:PRINT POINTS(16) "Esc":MOVE 470,11 
5:PRINT POINTS(10)"a":MOVE 480;100:PRINT POINT 
S(16)"b":MOVE 500;100:PRINT POINTS(20)"c" 

137 LINE 560;100,580;110 COLOR(4) WIDTH(12):LINE 5 
80;110,600;122 COLOR(13) WIDTH(12) 

138 CIRCLE 395;58,5 COLOR(2):CIRCLE 417;58,5 COLOR 
(2):LINE 400;58,425;80 WIDTH 3 COLOR(2):LINE 4 
12;58,38 7;80 WIDTH 3 COLOR(2) 

139 xm=XMOUSE:ym=YMOUSE:ym=ym*400/177 
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140 

IF xm>360 

w= 1 

AND 

xm< 450 

AND 

ym<133 

AND 

ym>90 

THEN 

141 

IF xm>450 
w=2 

AND 

xm< 540 

AND 

ym<133 

AND 

ym>90 

THEN 

142 

IF xm>540 
w=3 

AND 

xm< 638 

AND 

ym<133 

AND 

ym >90 

THEN 

143 

IF xm >360 
w=4 

AND 

xm< 450 

AND 

ym< 90 

AND 

ym > 5 0 

THEN 

144 

IF xm>450 

w=5 

AND 

xm< 540 

AND 

ym< 90 

AND 

ym>50 

THEN 

145 

IF xm> 540 
w= 6 

AND 

xm< 638 

AND 

ym< 9 0 

AND 

ym>50 

THEN 


146 IF BUTT0N=0 THEN PRINT CHR$(7);:ON w GOTO 149, 
154,159,165,177,182 

147 GOTO 139 

148 REM *** Pfeil *** 

149 GOSUB 186:MOVE 370;110:PRINT"Markieren Sie den 

Ursprung":MOVE 370;90:PRINT"des Pfeiles" 

150 xl = XMOUSE : y l=YMOUSE* 400/1 77 : IF BUTTONOO THEN 
150 

151 GOSUB 186:MOVE 370;110:PRINT"Markieren Sie die 

Pfeilspitze" 

152 x2 = XMOUSE : y2=YMOUSE*400 /1 7 7 : I F BUTTONOO THEN 
152 

153 LINE x1;y1,x2;y2 END 1:GOTO 132 

154 REM *** Beschriftung *** 

155 GOSUB 186:MOVE 370;110:PRINT"Geben Sje den Tex 
t ein: ":MOVE 370;90:INPUT "“,a$:GOSUB 186 

156 MOVE 370;110:PRINT'Markieren Sie die Stelle" 

157 x l = XMOUSE : y l = YMOUSE* 400 /1 7 7 : I F BUTTONOO THEN 
157 

158 MOVE x1;y1:PRINT COLOR(2) a$:GOTO 132 

159 REM *** Radieren *** 

160 GOSUB 186:MOVE 370;110:PRINT"Sie können nun de 
n Mausanzeiger":MOVE 370;90:PRINT"als Radiergu 
mml verwenden“:MOVE 3 70;70:PRINT"Be 1 de Tasten 

= Ende":MOVE 370;55:PRINT"We1che Dicke (1-20): 

";:INPUT "",d 

161 IF BUTTON=1 THEN 132 

162 xm=XMOUSE:ym=YMOUSE*400/l 77 

163 IF BUTT0N=0 THEN LINE xm-d/2;ym,xm+d/2;ym WIDT 
H d COLOR(0) 

164 GOTO 161 

165 REM *** Ausschneiden *** 

166 GOSUB 186:MOVE 370;110:PRINT"Markieren Sie ein 
en Eckpunkt" 

167 xm=XMOUSE:ym=YMOUSE*400/l77 

168 IF BUTTONOO THEN 167 

169 GOSUB 186:MOVE 370;110:PRINT"Br1ngen Sie jetzt 

das Reckteck":MOVE 370;90:PRINT"auf die rieht 
ige Größe" 

170 hl = xm-: h2 = ym : xm=XMOUSE : ym=YMOUSE*400/177: c=l : GO 
SUB 171:GOTO 172 

171 LINE hl;h2,xm;h2,xm;ym,hl;ym,hl;h2 COLOR(c):RE 
TURN 

172 c=0:GOSUB 171:xm=XMOUSE:ym=YMOUSE*400/l77:c=l: 
GOSUB 171 

173 IF BUTTONOO THEN 172 

174 IF h2 >ym THEN ab=l ELSE ab=-l 

175 FOR i=ym TO h2 STEP ab:LINE hl;i,xm;i COLOR(O) 
:NEXT:GOTO 132 

176 REM ***'Ausfüllen *** 

177 GOSUB 186:MOVE 370;110:PRINT"Von x= ";:INPUT " 
",an:MOVE 370;90:PRINT"bls x= ";:INPUT ”“,en:G 
OSUB 186:IF en<an OR en>xr THEN 177 

178 f xl = ROUND(((an-xl )*p4)+20):fx2 = ROUND(((en-xl )* 
p4)+20) 

179 FOR 1=fxl TO fx2:IF fy(i)<pl AND fy(1)>30 THEN 

LINE 1;pl-1,i;(fy(1)+l) COLOR(6) ELSE IF fy(1 
)>pl AND fy(i )< 340 THEN LINE i ;p1 +1,i ;(fy(i )-1 
) COLOR(6) 

180 NEXT:GOTO 132 

181 REM *** Escape *** 

182 SET COLOR(1):GOSUB 186:RETURN 

183 REM *** Funktonswerte *** 

184 GOSUB 186:MOVE 370;110:PRINT"x-Wert: ";:INPUT 

"",x:GOSUB 5:GOSUB 186:MOVE 365;wl-14-u:PRINT" 
f ( ; x; " ) = " ;yy:u = u + 15: IF u>15 THEN u=15 

185 RETURN 

186 REM *** Löschen *** 

187 FOR 1=57 TO 127 STEP 10:LINE 360;1,630;1 COLOR 
(0) WIDTH 14:NEXT:RETURN 

188 REM *** Überschrift *** 

189 MOVE 370;120:PRINT COLOR(5) w$:RETURN 

190 REM *** Löschen *** 

191 FOR i=w1-16 TO wl-2:LINE 365;1,625;1 COLOR(O): 
NEXT:RETURN 
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Jetzt neu bei DMV 


Das Buch zum JOYCE! 







Sprachen: 

- LOGO als Grafiker 

- komplette Befehlsübersicht 

- BASIC: Erläuterungen aller Befehle 
mit Beispielprogrammen 

- JETSAM: Generator für JETSAM- 
Verarbeitung 

- Kurzübersicht: Turbo Pascal & C 

Programmierhilfen, Interna, Tips und 
Tricks: 

- Steuercode-Tabellen für Bildschirm 
und Drucker 

- XBIOS-Routinen 

- OUTs und POKEs unter BASIC 

Hardware 

- Speichererweiterung 

- Zweitlaufwerk 

- Druckkopfreinigung 

- Bildschirminverter 

- Schnittstelle am Expansionsport 

- Sprachsynthesizer 


Platinenlayouts im Buch 


Weiterhin erhältlich: 

- doppelte Platine, geprüft 

- 3“-Diskette mit allen Dateien und Programmen 


Aus dem Inhalt: 




JOYCE - mehr als ein Text¬ 


system 


Die Autoren, in der JOYCE-Szene keine 
Unbekannten, haben auf über 300 Sei¬ 
ten alles Wissenswerte über die “ande¬ 
re Seite“ der PCWs zusammengetra¬ 
gen. Anfänger wie Profis, Anwender wie 
Programmierer finden in diesem Buch 
einen reichen Schatz an Tips und Tricks 
sowie ein unentbehrliches Nachschla¬ 
gewerk. Erstmals wird auch in einem 
Buch zum PCW ein “heißes Eisen“ aus¬ 
führlich behandelt: die Hardware. Die¬ 
ses Kapitel zeigt völlig neue Möglichkei¬ 
ten des JOYCE - so wird beispielswei¬ 
se der Anschluß eines Sprachsynthesi¬ 
zers und der Selbstbau einer Schnitt¬ 
stelle besprochen. 

Ausführliche Kapitel über BASIC und 
LOGO erlauben Ihnen, diese Sprachen 
auszureizen: Anfänger, die sich erst¬ 
mals in der Programmierung versuchen 
wollen, finden durch sinnvolle kurze Bei¬ 
spielprogramme wertvolle Unterstüt¬ 
zung. Ein besonderes “Schmankerl“ ist 
das große Extra-Kapitel zur 
Dateiverwaltung! 


Alle Besitzer eines PCW 8256/8512/9512, die 
ahnten, daß der Horizont ihres Computers weit 
über LocoScript hinausgeht, finden 
Bestätigung: 


JOy C £_ 


Arv *endu 


m Bhr als e ,„ r 
*n Qe - eln Texts 


n 9e n 


und p, 




vsfem 


Jn 9en 




BesteIIkarte im Buch 


JOYCE - mehr als ein Text¬ 
system 

Bestellnummer: 404 

324 Seiten mit farbigen Abbildungen 

Hardcover, gebunden 

ISBN 3-926177-02-0 


69.- DM 

Wenn Sie überden DMV-Bestellservlce bestellen, gilt folgendes: 


Inland: 

Einzelpreis 

69,- DM 

Ausland: 

Einzelpreis 

69,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

73,- DM 

Endpreis 

75,- DM 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag - Postfach 250 ■ 3440 Eschwege 


/ / /Dl 


/ 

Y 

/ /Daten- und 

Medienverlag 
















Das Erlebnis, Hotelmanager zu sein 


Wie gut das alles im Urlaub immer so klappt: Die Hotelzimmer sind vorbe¬ 
stellt, die Betten weich und sauber, das Essen reichlich und gut und die Be¬ 
dienung zuvorkommend und sehr nett. Wie bitte, nicht in Ihrem Fall? Sie 
haben Grund zur Beschwerde? Na gut, jetzt dürfen Sie sich mal als Hotel¬ 
besitzer fühlen und sich mit ewig nörgelnden Gästen, widerspenstigen 
Handwerkern und unglücklich verliebten Köchen (wegen dem Salz in der 
Suppe) herumschlagen. Naja, zumindest erst mal auf Ihrem PC. 


Es geht um den großen Preis für die 
'beste Hotelführung in kürzester Zeit’. 
Alle Hotelmanager machen sich auf, 
um den ehrenwerten Preis in ihre Hand 
zu bekommen. Es erfordert schon viel 
Strategie, um da mithalten zu können! 
Außerdem erschweren viele trübe Er¬ 
eignisse Ihren Aufstieg. 

Hotel besitzen ist nicht schwer, 
Hotel zu führen...? 

Der begehrteste Weg zum großen 
Ruhm ist der über die Aktienbörse. Sie 
können versuchen, Ihr Glück damit zu 
machen, daß Sie möglichst billig Ak¬ 
tien kaufen, und diese nach Möglich¬ 
keit wieder teuer verkaufen. Doch was, 
wenn alle Aktien ihren Wert verlieren? 
Die Bediensteten müssen weiterhin ih¬ 
ren Lohn bekommen! Und Sie müssen 
aufpassen, daß das Hotel nicht lang¬ 
sam, aber sicher zur 'Ruine' wird! Wie 
Sie sehen, ist das alles gar nicht so ein¬ 
fach, und wenn dann auch noch unvor¬ 
hergesehene Ereignisse wie Brände, 
Überschwemmungen oder Schulklas¬ 
sen eintreffen, heißt es Nerven zu be¬ 
wahren. 

HOTEL-Manager: 

Die Anleitung 

Grundsätzlich gilt, daß alle Aktionen 
menügesteuert sind. Hier sind alle 


Funktionen zur Übersicht: 

1. Börse: Hier können Sie Aktien kau¬ 
fen/verkaufen. 

2. Hotelanlage: In diesem Menü kön¬ 
nen Sie den Zustand Ihres Hotels aus¬ 
bessern. Der Hauptzustand wird er¬ 
rechnet aus Dachzustand, Mauerzu¬ 
stand, Raumzustand. Außerdem ist ein 
Bettenkauf möglich. Hier ein Tip: Je 
besser der Zustand des Hotels und 
je mehr Betten, desto mehr Gäste 
kommen! 

3. Personal & Gäste: Hier erhalten Sie 
Informationen über die Löhne Ihres 
Personals und die Zimmerpreise für 
Ihre Gäste. Sie können die Zimmer¬ 
preise erhöhen, beziehungsweise auch 
erniedrigen. Personal kann eingestellt 
oder entlassen werden. Wenn jemand 
entlassen wird, müssen Sie ihm (ihr) 
zwei Monatslöhne zahlen. (Es muß im¬ 
mer aus jeder Berufssparte eine Person 
vorhanden sein, also ein Koch, ein 
Page usw.) Hierzu auch ein Tip: Je nie¬ 
driger die Zimmerpreise angesetzt sind 
und je mehr Personal vorhanden ist, 
desto mehr Gäste kommen (meistens!) 
und desto höher ist der Index. 

4. Verpflegung: Dieses Menü ermög¬ 
licht Ihnen den Kauf von 'Verpfle¬ 
gung'. Bitte beachten Sie, daß die Be¬ 
stellung von Nahrungsmitteln erst in 
einem Monat vom Lieferwagen 
kommt! Noch ein Tip: Kaufen Sie im¬ 
mer genug 'Verpflegung' für den näch¬ 


sten Monat, denn sonst müssen Sie pro 
Gast, der nichts zu essen bekam 100 
Einheiten (DM, Gulden, Franc, Pfund, 
je nachdem, wo Sie Ihr Hotel ansie¬ 
deln) zahlen. 

Noch ein paar allgemeine 
Hinweise 

Es können bis zu fünf Mitspieler teil¬ 
nehmen. Man kann den Spielstand 
nach Ablauf eines jeden Monats auf 
Diskette abspeichern. Wer als erster ei¬ 
nen Index in Höhe von 4000 (oder hö¬ 
her) erreicht hat, ist der Gewinner! 

Das Laden des Spiels wird wie üblich 
vorgenommen: BASIC2 laden, Spiel¬ 
diskette einlegen und HOTEL.BAS la¬ 
den, danach 'RUN' eintippen. Sie be¬ 
ginnen nun mit einem Startkapital von 
5000.- und 2 Aktien. Ihr Hotel hat 20 
Betten und 20 Einheiten Verpflegung. 
Außerdem sind in ihrem Hotel ein 
Koch, ein Page, ein Liftboy und ein 
Zimmermädchen angestellt. 


Wichtig 

Das Programm wurde beim Aus¬ 
druck mit Zeilennummern versehen, 
damit Sie beim Abtippen eine besse¬ 
re Übersicht erhalten. BASIC2 kann 
zwar Zeilennummern verarbeiten, 
bei diesem Programm sollten sie je¬ 
doch weggelassen werden, da einige 
Sprünge sich auf Labelnummern be¬ 
ziehen, was beim Ablauf mit Zeilen¬ 
nummern zu Schwierigkeiten führen 
kann. 

Das Programm wurde unter der 
BASIC2 Version 1.21 geschrieben, 
läuft jedoch auf anderen Versionen 
ohne Probleme. 


(Christian Stein/jb) 



Abb. I: Falls Sie gerade mal zuviel Geld auf der 
Bank haben, wie wäre es, wenn Sie Ihr Holet 
einmal renovieren lassen würden ? Zumindestens 
sollten Sie dies im Spiel 'Hotelmanager' tun. 
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REM ***************************** 


REM * HOTEL-Manager (v3.0) * 
REM * (c) 1988 by DMV * 
REM * wrltten by * 
REM * Christian Stein * 


REM ***************************** 

CLOSE WINDOW 2:CLOSE WINDOW 3:CLOSE WINDOW 4:WIND0W 
#1 OPEN 

WINDOW #1 FULL:WINDOW TITLE"":CLS 
REM ****** TITELBILD ****** 

BOX 100;100,8300,4800 ROUNDED WIDTH 5 

LINE 900;300,900;2700,500;2700:LINE 7400;300,7400;2 

700,7800:2700,4050;4800,500;2700 

SET EFFECTS 1:SET FONT 3:SET POINTS 72:PRINT AT(15; 
8)"Hotel" 

SET POINTS 28:SET EFFECTS 3:PRINT AT(35;11)"- Manag 


SET POINTS 18:SET EFFECTS 5 

SET FONT 2:PRINT AT(15;19)"(c) 1988 by DMV + Christ 
ian Stein" 

WHILE INKEY$="":WEND 
REM 

REM ****** ANFANGSWERTE ****** 

REM 

CLS:SET POINTS 28:PRINT AT(3;7)"A1tes Spiel laden?" 
:PRINT AT(40;10)"(J/N)" 

LABEL spl 1 

a$=INKEY$:IF a$="" THEN GOTO spl1 
IF UPPER$(a$)<>"J" THEN GOTO spiab 
OPEN #8 INPUT "monsp.hom" 

INPUT #8 sp,mon,kkoch,kzm,kpage,k1boy 
CLOSE 

OPEN *9 INPUT "dummy.hom" 

FOR x—1 TO sp 

INPUT #9 geld(x),bett(x),aktie(x),koch(x),zm(x),pag 
e(x),lboy(x),pz1m(x),zkp(x ), es3en(x),essm(x ) ,zdach( 
x),zmauer(x),ztoi1(x),zaufz(x),zraum(x),name$(x) 
NEXT x 
CLOSE 

GOTO haupt 

LABEL spiab:CLS:SET FONT 3:SET POINTS 20:SET EFFECT 

S 5:PRINT AT ( 16;6)"Anzahl der Mitspieler: (1-4)":SE 

T POINTS 72:LOCATE 26;13:INPUT"”,sp 

SET FONT 2:SET POINTS 16:SET EFFECTS 1 

IF sp>4 OR sp<1 THEN PRINT CHR$(7) :WHI LE INKEY$= " " : 

WENO:GOTO spiab 

FOR x=l TO sp 

CLS:SET POINTS 16:PRINT AT(25;8)"Wie soll Ihr Hotel 
heißen?":SET POINTS 36:LOCATE 25;13:INPUT"",name$ ( 
x) 

NEXT X 

FOR x=l TO sp 

zraum(x)=99:zdach(x)=99:ztoi1(x)=99:zaufz(x)=99:zma 
uer(x)=99:koch(x)=l:zm(x)=l:page(x)=l:1boy(x)=l:pzi 
m(x)=800:aktie(x)=2:geld(x)=5000:bett(x)=20:essen(x 
) = 20 
NEXT x 


kkoch=1900:kzm=1400:kpage=1200:klboy=1500 
REM 

REM ****** HAUPTMENUE ****** 

REM 

LABEL haupt 
FOR x=l TO sp+l 
IF x>sp THEN x= 1 
IF x=sp THEN mw = 1 

essen(x)=essen(x)+essm(x):essm(x)=0:essen(x)=R0UND( 
essen(x )) 

LABEL neubel 
zuf=INT(RND*10)+l 

gast=(zdach(x)+zmauer(x)+zto11(x)+zaufz(x))/6+(koch 
(x)*10+zm(x)*8+page(x)*7+lboy(x)*5)-pzim(x)/9+zuf:g 
ast=ROUND(gast):IF gast<0 THEN gast=0 
IF essen(x)=0 THEN gast=0 
IF bett(x)<gast THEN gast=bett(x) 

waktie = INT(RND*600) + 10:wesser. = INT(RND*100) + 5 :wbett = 
INT(RND*2000)+300:wdach=INT(RN0*80)+15:wmauer=wdach 
-INT(RND*6)+13:w*aum=wdach-INT(RND*18)+14:waufz=wda 
ch-INT(RND*14) + 5:wtoi1=wdach-1 NT(RND*12)+ 5 
zdach(x)=zdach(x)-INT(RND*4)-l:zmauer(x)=zmauer(x)- 
INT(RND*4)-1:zaufz(x)=zaufz(x)-INT(RND*5)-l:ztoi1 (x 
)=zto11(x)-INT(RND*8)-l: z raum( x) =zraum{x)-I NT(RND* 6 
)-l:IF zkp(x)=0 THEN pzim(x)=pzim( x ) ELSE pzim(x)=z 
kp(x) 


670 IF zdach(x)<0 THEN zdach(x)=0 
680 IF zmauer(x)<0 THEN zmauer(x)=0 
690 IF zaufz(x)<0 THEN zaufz(x)=0 
700 IF ztoi1 (x)< 0 THEN ztoil(x) = 0 
710 IF z raum(x)< 0 THEN zraum(x)=0 
720 LABEL hmenu 

730 zust(x)=(zdach(x)+zmauer(x)+zraum(x)+zaufz(x)+ztoil 
(x))/5 

740 ind(x)=geld(x)/1000+bett(x)/6+aktie(x)/3+koch(x)*20 
+ zm(x)*17 + page(x)*10+lboy(x)*13+essen(x)/4.5: IF 1 nd 
(x)< 0 THEN ind(x)=0 

750 WINDOW TIT LE"H AUPTMENU E":CLS 
760 SET FONT 3:SET EFFECTS 7:SET POINTS 36:PRINT AT(1;3 
)" Hotel ”;LEFT$(name$(x),10) 

770 BOX 50;4200,8400,700 WIDTH 5 

780 SET EFFECTS 1:SET POINTS 18:PRINT AT(1;7)" Kapital: 
"I9*1d(x):PRINT:PRINT" Index: ";ROUND(1nd(x)):PRIN 
T:PRINT" Zustand des Hotels:";ROUND(zust(x),(l));"% 
":PRINT" Betten: bett(x):PRINT" Gäste: ";gast:PR 

INT" Essen: ";essen(x) 

790 SET FONT 2:SET POINTS 14:SET EFFECTS S:PRINT AT{52; 
14)"M E N U E":SET POINTS 10:SET EFFECTS 1:PRINT AT 
(50;15)SET EFFECTS 8:PRINT"1";:SET EFFECTS 1:P 
RINT"> Börse":PRINT AT(50;16)"<";:SET EFFECTS 8:PRI 
NT"2"; :SET EFFECTS 1:PRINT"> Hotelanlage" 

800 PRINT AT(50;17)"<";:SET EFFECTS 8:PRINT"3";:SET EFF 
ECTS 1:PRINT"> Personal & Gäste":PRINT AT(50;18)"<" 
I:SET EFFECTS 8:PRINT"4";:SET EFFECTS 1:PRINT"> Ver 
pflegung":PRINT AT(50;20SET EFFECTS 8:PRINT“5 
"i:SET EFFECTS 1:PRINT"> RAUS" 

810 BOX 5500:2200,2200,900 FILL WITH 9 

820 SHAPE 5000;3100,8200;3100,6600;3900 FILL WITH 5 

830 BOX 6000:2200,200,400 FILL WITH 4 

840 ab=200 

850 FOR b=1 TO 6 

860 BOX 5400+ab;2800,200,200 FILL WITH 15 

870 ab=ab+350:NEXT b 

880 ab=300 

890 FOR b=1 TO 4 

900 BOX 6000+ab;2400,200,200 FILL WITH 15 
910 ab=ab+350:NEXT b 

920 SET POINTS 10:SET EFFECTS 0:PRINT AT(56;8);LEFT$(na 


me$(x), 10 ) 

930 LABEL hmab 

940 a$=INKEY$:lF a$="" THEN GOTO hmab 
950 IF a$=" 1" THEN GOTO boerse 
960 IF a$= "2" THEN GOTO hotelanlage 
970 IF a$="3" THEN GOTO pe rsona 1 ugaes te 
980 IF a$="4" THEN GOTO Verpflegung 
990 IF a$= "5" THEN GOTO raus 
1000 GOTO hmab 
1010 REM 

1020 REM ****** BÖRSE ****** 

1030 REM 

1040 LABEL boerse 

1050 WINDOW TITLE"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ B ö R 
S E $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$": CLS 
1060 SET FONT 3:SET POINTS 18:SET EFFECTS 1:PRINT AT(5 ; 
3)"Akt 1 en in Besitz:";akt 1e (x) :SET EFFECTS 1:PRINT 


AT(48;3)"Aktienwert:";wakt1e 
1070 BOX 200;4100,3400,700 WIOTH 4:BOX 4850;4100,3400,7 
00 WIDTH 4 

1080 BOX 500;500,1030.2000 FILL WITH 4 
1090 hoch=aktie(x)*10 

1100 LINE 500;500,1500;500:LINE 500;500+hoch,1500;500+h 


och 


1110 BOX 500;500+hoch,1030,2020-hoch FILL WITH 0 

1120 hochh =100 

1130 FOR b=1 TO 20 

1140 LINE 1600;500+hoohh,1800;500+hochh 

1150 IF b=5 OR b=10 OR b=15 OR b=20 THEN LINE 1600;500+ 

hochh, 2000 ;500+hochh 
1160 hochh=hochh+100:NEXT b 

1170 SET POINTS 8:M0VE 2100;975:PRINT"50":MOVE 2100;147 
0:PRINT"100":MOVE 2100;1965:PRINT"150":MOVE 2100;2 
460:PRINT"200" 

1180 SET POINTS 10:M0VE 540;2650:PR INT"AKT IENSKALA:" 
1190 SET POINTS 20:SET EFFECTS 3:PRINT AT(2;7);STRING$( 
50,"*") 

1200 PRINT AT(25;13);STRING$(35,"*") 

1210 FOR b=8 TO 19 
1220 PRINT AT(25;b)"*" 

1230 NEXT b 

1240 SET FONT 2:SET POINTS 14:SET EFFECTS 5:PRINT AT(58 
:16)"M E N U E":SET POINTS 10:SET EFFECTS 1:PRINT 
AT(58;17)"(1) kaufen":PRINT AT(58;18)"(2) verkaufe 
n":PRINT AT(58;19)"(3) HAUPTMENUE" 
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1250 SET POINTS 18:PRINT AT(28;14)"Kapita1:";ge 1d(x) 
1260 LABEL boerab 

1270 a$=INKEY$:IF a$="" THEN GOTO boerab 

1280 IF a$="1" THEN GOTO aKauf 

1290 IF a$="2" THEN GOTO averk 

1300 IF a*="3" THEN GOTO hmenu 

1310 GOTO boerab 

1320 LABEL akauf 

1330 IF akt1e(x)=200 THEN SET POINTS 20:PRINT AT(36;9)" 
Geht nicht mehr I":PRINT AT(40;11)"<TASTE>":WHILE I 
NKEY$='"' :WEND: GOTO boerse 

1340 SET POINTS 20:PRINT AT(40;9)"-KAUFEN-“:INPUT AT(30 
;11)“Wieviele: ",ank 

1350 IF geld(x)<ank*waktie THEN PRINT AT(36;9)"Ge 1d rel 
cht nicht!":PRINT AT(30;11)“ “:PRINT AT(4 

0; 11)"<TASTE>":WHILE INKEY$="":WEND:GOTO boerse 
1360 IF akt1e(x)+ank>200 THEN PRINT AT(38;9)"Das Ist zu 
viel!“:PRINT AT(30;11)" “:PRINT AT(40;11) 

"<TASTE>“:WHILE INKEY$=WEND:GOTO boerse 
1370 ge1d(x)=geld(x)-ank*waktie:akt1e(x)=akt1e(x)+ank:a 
nk=0:GOTO boerse 
1380 LABEL averk 

1390 IF aktle(x)=0 THEN SET POINTS 20:PRINT AT(36;9)"S1 
e haben keine Akt1en!“:PRINT AT(40;11)“<TASTE>":WH 
ILE INKEY$="":WEN0:GOTO boerse 
1400 SET POINTS 20:PRINT AT(37;9)“-VERKAUFEN-INPUT AT 
(30;11)"W1evle1e:",ank 

1410 IF aktle(x)-ank < 0 THEN PRINT AT(37;9) M Das ist zuv 
lei! ":PRINT AT(30j11)" ":PRINT AT(40;11 

) "<TASTE>“:WHILE INKEY$=WEND:GOTO boerse 
1420 akt1e(x)=aktie(x)-ank:geld(x)=geld(x)+ank*wakt1e:a 
nk=0:G0T0 boerse 
1430 REM 

1440 REM ****** HOTELANLAGE ****** 

1450 REM 

1460 LABEL hotelanlage 

1470 WINDOW TITLE''*###«*###*############### H O T E L A 
N L A G E ############################":CLS 
1480 BOX 500;50,7400,2500 FILL WITH 9 
1490 SHAPE 100;2500,8200;2500,4000;4800 FILL WITH 3 
1500 BOX 3000;50,450,850 FILL WITH 4:SET FONT 2:SET EFF 
ECTS 0 

1510 SET POINTS 18:PRINT AT(20;3) "Zustand des Hotels:“; 
ROUND(zust(x),(1)); 

1520 SET POINTS 14:PRINT AT(20;5)"Dach: ";zdach(x);“X“ 

:PRINT AT(20;6)"Mauer: ";zmauer(x);"X":PRINT AT(20 
;7)"RÄume:";zraumfx);"X":PRINT AT(20;8)"Aufzug : " ; z 
aufz(x);"X“:PRINT AT(20;9)"Toi 1ette:";ztol1(x);"X" 
1530 PRINT AT(11;11)"Anzahl der BettenSET EFFECTS 1 
:PRINT bett(x):SET EFFECTS 0:PRINT AT(40;11)"Preis 
/Bett:“;:SET EFFECTS 1:PRINT wbett 
1540 SET EFFECTS 1:PRINT AT(40;5)"1X kostet ";wdach:PRI 
NT AT(40;6)“IX kostet “;wmauer:PRINT AT(40;7)"1X k 
ostet ";wraum:PRINT AT(40;8)“1X kostet ";waufz:PRI 
NT AT(40;9)"IX kostet ";wto11 
1550 ab=600 
1560 FOR b=1 TO 8 

1570 BOX 400+ab;1600,450,450 FILL WITH 15 : ab=ab+850:NEX 
T b 

1580 ab=600 
1590 FOR b=l TO 2 

1600 BOX 400+ab;500,450,450 FILL WITH 15:ab=ab+850:NEXT 
b 

1610 ab =600 

1620 FOR b=1 TO 4 

1630 BOX 3200+ab;500,450,450 FILL WITH \ 5:ab=ab+850:NEX 
T b 

1640 BOX 6550;150,1900,1350 WIDTH 3 FILL WITH 26 
1650 SET FONT 2:SET POINTS 14:SET EFFECTS 5:PRINT AT(62 
;17)"M E N U E":SET POINTS 10:SET EFFECTS 1:PRINT 
AT(62;18)"(1) AusbessernPRINT AT(62;19)"(2 ) Bett 
en kaufen":PRINT AT(62;20)"(3) HAUPTMENUE" 

1660 BOX 6400;3800,2000,1100 WIDTH 4 

1670 SET POINTS 18:SET EFFECTS 1:PRINT AT(60;2)"Kapital 
:":PRINT AT(60;4);ge 1d(x):SET POINTS 10:SET EFFECT 
S 1 

1680 LABEL hotab 

1690 a$=INKEY$:IF a$="" THEN GOTO hotab 

1700 IF a$="1" THEN GOTO ausb 

1710 IF a$="2" THEN GOTO bkauf 

1720 IF a$=“3" THEN GOTO hmenu 

1730 GOTO hotab 

1740 LABEL ausb 

1750 BOX 100;150,1850,1930 WIDTH 3 FILL WITH 25 
1760 PRINT AT(3;14)"-AUSBESSERN-":PRINT AT(3;15)"(1) Da 
ch”:PRINT AT(3;16)"(2) Mauer":PRINT AT(3;17)"(3 ) R 
äume":PRINT AT(3;18)"(4) AufzugPRINT AT(3;19)"(5 
) Toilette":PRINT AT(3;20)"(6) ZURÜCK" 

1770 LABEL ausbu 

1780 a$=INKEY$:IF a$="" THEN GOTO ausbu 
1790 IF a$="l" THEN n=l:GOTO prab 


1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 


1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 


IF a$="2" THEN n=2:GOTO prab 
IF a$="3" THEN n=3:GOTO prab 
IF a$="4" THEN n = 4:GOTO prab 
IF a$="5" THEN n= 5:GOTO prab 
IF a$="6" THEN GOTO hotelanlage 
GOTO ausbu 
LABEL prab 

BOX 2900;1080,2100,600 FILL WITH 0 

SET FONT 3:SET POINTS 18:SET EFFECTS 1:INPUT AT(28 
;16)"Wieviel X:",pr:pr = ROUND(pr):SET FONT 2:SET EF 
FECTS 0 

IF n=l THEN IF geld(x)-pr*wdach<0 THEN GOTO nicht 
IF n = l THEN IF zdach(x) + pr >100 THEN GOTO nicht 
IF n=l THEN ge 1d(x)=ge1d(x)-pr*wdach:zdach(x) = zdac 
h(x)+pr 

IF n = 2 THEN IF ge 1d(x)-pr*wmauer<0 THEN GOTO nicht 
IF n=2 THEN IF zmauer(x)+pr>100 THEN GOTO nicht 
IF n=2 THEN ge 1d(x)=geId(x)-pr»wmauer:zmauer(x) = zm 
aue r(x) + pr 

IF n=3 THEN IF geld(x)-pr*wraum<0 THEN GOTO nicht 
IF n=3 THEN IF zraum(x)+pr>100 THEN GOTO nicht 
IF n = 3 THEN ge 1d(x) = ge1d(x)-pr*wraum:zraum(x)=zrau 
m(x)+pr 

IF n=4 THEN IF ge1d(x)-pr*waufz<0 THEN GOTO nicht 
IF n=4 THEN IF zaufz(x)+pr>100 THEN GOTO nicht 
IF n = 4 THEN ge 1d(x) = geld(x) —pr*waufz:zaufz(x ) = zauf 
z ( x) + pr 

IF n=5 THEN IF ge1d(x)-pr*wtoi1<0 THEN GOTO nicht 
=5 THEN IF ztol1(x)+pr>100 THEN GOTO nicht 
'5 THEN geld(x)=geld(x)-pr*wto11:ztoi1(x)=zto1 


":W HIL E INKEY$ = "":W 


UND 


GÄSTE *** 


2010 
2020 IF 
2030 IF 

1 (x)+pr 

2040 zust(x)=(zdach(x)+zmauer(x)+zraum(x)+zaufz(x)+ztoi 
1(x))/5 

2050 GOTO hotelanlage 
2060 LABEL bkauf 

2070 BOX 2900;1080,2400,600 FILL WITH 0 

2080 SET FONT 3:SET POINTS 18:SET EFFECTS 1:INPUT AT(28 
;16)"W1evieie:",banz:banz=ROUND(banz) 

2090 IF geld(x)-banz*wbett<0 THEN GOTO nicht 
2100 IF bett(x)+banz>9999 THEN GOTO nicht 
2110 geld(x)=geld(x)-banz*wbett:bett(x)=bett(x)+banz:GO 
TO hotelanlage 
2120 LABEL nicht 

2130 PRINT AT(28;16)"Geht nicht! 

END:GOTO hotelanlage 
2140 REM 

2150 REM ****** PERSONAL 
*** 

2160 REM 

2170 LABEL persona1ugaeste 

2180 WINDOW TITLE"**************************** PERSONAL 
& GÄSTE **********************»*******";CLS 
2190 SET FONT 3:SET POINTS 28:SET EFFECTS 7:PRINT AT(2; 

2) "-PERSONAL-":SET POINTS 20:SET EFFECTS 3:PRINT A 
T(2;4)"Lohn/Monat:":SET FONT 2:SET POINTS 14.SET E 
FFECTS 1:PRINT AT(2;5);koch(x);"Koch ";CHR$(133);k 
koch 

2200 PRINT AT(2;6);zm(x);"Zimmermädchen ";CHR$(133);kzm 
:PRINT AT(2;7);page(x);"Page ";CHR$(133);kpage:PRI 
NT AT(2;8);1Iftboy(x);"Liftboy ";CHR$(133);k1boy 
2210 SET FONT 3:SET POINTS 28:SET EFFECTS 7:PRINT AT(48 
;2) "-GÄSTE-":SET POINTS 20:SET EFFECTS 3:PRINT AT( 
45;4)"Zlmmerpreis/Monat:":SET EFFECTS 1:PRINT AT(5 
3 ; 6 ) " + " ; pz i m ( x ) ; " + " 

2220 LINE 4000;2900,4000;5000 WIDTH 12:LINE 100;4450,82 
00;4450 WIDTH 3 

2230 LINE 100;2900,0200;2900 WIDTH 2 

2240 SET FONT 2:SET POINTS 14:SET EFFECTS 5:PRINT AT(58 
;15)"M E N U E":SET POINTS 10:SET EFFECTS 1:PRINT 
AT(5 7;16 ) "(1) Einstei len":PRINT AT(57;17)"(2) Entl 
assen":PRINT AT(57;18)"(3) Neue Z1mmerpre1se":PRIN 
T AT(57;19)"(4) HAUPTMENUE" 

2250 LABEL pgab 

2260 a$=INKEY$:IF a$="" THEN GOTO pgab 

2270 IF a$="l" THEN GOTO einst 

2280 IF a$="2" THEN GOTO entl 

2290 IF a$="3" THEN GOTO zpreis 

2300 IF a$="4" THEN GOTO hmenu 

2310 GOTO pgab 

2320 LABEL einst 

2330 PRINT AT(3;10)"—EINSTELLEN-":PRINT AT(3;11)"(1) Ko 
ch " : PRINT AT(3;12)"(2) Zimmermädchen":PRINT AT(3;1 

3) "(3) Page":PRINT AT(3;14)"(4) Li ftboy":PRINT AT( 
3 ; 15 ) " (5 ) ZURÜCK":PRINT AT(3;17)"Ihre Wahl:" 


2340 

LABEL 

e 1 nstab 



2350 

a$=INKEY$ 

: IF a$="" THEN 

GOTO einstab 

2360 

IF 

a$= 

"1" 

THEN 

n=1:GOTO 

wab 

2370 

IF 

a$= 

"2" 

THEN 

n=2:GOTO 

wab 

2.380 

IF 

a$= 

"3" 

THEN 

n=3:GOTO 

wab 

2390 

IF 

a$= 

"4" 

THEN 

n=4:GOTO 

wab 

2400 

IF 

a$= 

„ 5 " 

THEN 

GOTO personalugaeste 
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2410 GOTO einstab 
2420 LABEL wab 

2430 SET POINTS 16:SET EFFECTS 1:INPUT AT(2;19)"W1ev1 ei 
e: " , e 1 n 

2440 IF n=l THEN koch(x)=koch(x)fein:IF koch(x)>10 THEN 
koch(x )=10 

2450 IF n=2 THEN zm(x)= zm(x)+ e1n:IF zm(x)>13 THEN zm(x) 
= 13 

2460 IF n=3 THEN page(x)=page(x)+e1n:IF page(x)>14 THEN 
page(x)=14 

2470 IF n=4 THEN 1boy(x)=1boy(x)+e1n:IF lboy(x)>15 THEN 
1boy(x)=15 

2480 GOTO personalugaeste 
2490 LABEL entl 

2500 PRINT AT(3;10)"-ENTLASSEN-":PRINT AT(3;11)"<1) Koc 
h":PRINT AT(3;12)"(2) Z1mmermädchen":PRINT AT(3;13 
)"(3) Page":PRINT AT(3;14)”(4) L1 ftboyPRINT AT(3 
;15 ) “(5 ) ZURÜCK":PRINT AT(3;17)"Ihre Wahl:" 

2510 LABEL entab 

2520 a$=INKEY$:IF a$="" THEN GOTO entab 

2530 IF a$="1" THEN n=l:GOTO wabl 

2540 IF a$="2" THEN n=2:G0T0 wabl 

2550 IF a$="3" THEN n=3:G0T0 wabl 

2560 IF a$="4" THEN n=4:G0T0 wabl 

2570 IF a$="5" THEN GOTO personalugaeste 

2580 GOTO entab 

2590 LABEL wabl 

2600 SET POINTS 18:SET EFFECTS 1:INPUT AT(2;19)"W1ev1e1 
a:",aus 

2610 IF n=l THEN IF koch(x)-aus<1 THEN GOTO nlchtl 
2620 IF n = l THEN koch(x) = koch(x)-aus:ge 1d(x)=ge1d(x)-au 
s* 2 * kkoch 

2630 IF n=2 THEN IF zm(x)-aus<l THEN GOTO nlchtl 
2640 IF n = 2 THEN zm(x)=zm(x)-aus:ge 1d(x)=ge1d(x)-aus*2* 
kzm 

2650 IF n=3 THEN IF page(x)-aus<1 THEN GOTO nlchtl 
2660 IF n=3 THEN page(x)=page(x)-aus:ge1d(x)=ge1d(x)-au 

s*2*kpage 

2670 IF n=4 THEN IF 1boy(x)-aus<1 THEN GOTO nlchtl 
2680 IF n = 4 THEN 1boy(x) = 1boy(x)-aus:ge 1d(x)=ge1d(x)-au 
s* 2 *klboy 

2690 GOTO personalugaeste 
2700 LABEL nlchtl 

2710 SET EFFECTS 5:PRINT AT<1;19)" Geht nicht! 

":WHILE INKEY$="":WEND:GOTO persona 1ugaeste 
2720 LABEL zprels 

2730 SET POINTS 18:SET EFFECTS 1:INPUT AT(2;19)"W1e hoc 
h: " , z p 

2740 IF zp>1500 THEN GOTO nlchtl ELSE IF zp<800 THEN GO 
TO nlchtl ELSE zkp(x)=zp:GOTO persona1ugaeste 
2750 REM 

2760 REM ****** VERPFLEGUNG ****** 

2770 REM 

2780 LABEL Verpflegung 

2790 WINDOW TIT LE"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX VERPF 
LEGUNG XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":CLS 
2800 BOX 200;3300,8000,1600 FILL WITH 37 

2810 SET FONT 3:SET POINTS 28:SET EFFECTS 5:PRINT AT(7; 
3)"Verpflegung für diesen Monat:":SET POINTS 36:SE 
T EFFECTS 3:PRINT AT(30;6);essen(x) 

2820 SET POINTS 20:SET EFFECTS 5:PRINT AT(3;10)"Kosten/ 
Person:“;:SET EFFECTS 3:PRINT wessen:SET FONT 3:SE 
T EFFECTS 1:SET POINTS 18:PRINT AT(3;13)"Kap1ta1:" 

; ge 1d(x) 

2830 BOX 4450;150,4050,1050 FILL WITH 28 

2840 SET FONT 2:SET POINTS 14-.SET EFFECTS 5:PRINT AT(50 
;18)"M E N U E":SET POINTS 10:SET EFFECTS 1:PRINT 
AT(43;19)"(1) Verpflegung für naechsten Monat kauf 
en":PRINT AT(43;20) " (2 ) HAUPTMENUE" 

2850 LABEL veab 

2860 a$=INKEY$:IF a$="” THEN GOTO veab 
2870 IF a$="1" THEN GOTO verm 
2880 IF a$="2" THEN GOTO hmenu 
2890 GOTO veab 
2900 LABEL verm 

2910 BOX 3850:1550,3800,1200 WIDTH 5 

2920 SET POINTS 20:INPUT AT(37;12)"W1ev1e1:",pro:pro=RO 
UND(pro,(1)) 

2930 IF geld(x)-pro*wessen<0 THEN PRINT AT(37;12)" Gel 
d reicht nicht! ":PRINT AT(43;14)"<TASTE>":WHILE 
INKEY$="":WEND:GOTO Verpflegung 
2940 geld(x)=geld(x)-pro*wessen:essm(x)=essm(x)+pro:GOT 
0 Verpflegung 
2950 REM 

2960 REM ****** RAUS ****** 

2970 REM 

2980 LABEL raus 

2990 WINDOW TITLE"??????????????????????????? E R E I G 
NISSE ????????????????????????????":CLS 
3000 SET FONT 3:SET EFFECTS 5:SET POINTS 28 
3010 z=INT(RND*29)+l:z=ROUND(z) 


3020 ON z GOSUB 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, 
17,18,19,20,21,22,23,24,25,26,27,28,29 
3030 s=0:gu=0:SET FONT 1:SET EFFECTS 1:SET POINTS 10:PR 
INT AT(35;20)"<TASTE>":WHILE INKEY$="":WEND 
3040 GOTO elnaus 

3050 1 PRINT AT(9;9)"Ihnen wurden 500 gestoh1en!":ge 1d( 
x)=geld(x)-500:RETURN 

3060 2 gu=INT(RND*20000)+1:PRINT AT(20;9)"Sie erben";gu 
:PRINT AT(20;11)"von Ihrem Onkel!":gald(x)=geld(x) 
+gu:RETURN 

3070 3 s=INT(RND*7)+l 

3080 IF gast=0 THEN RETURN ELSE IF s>gasC THEN GOTO 3 E 
LSE PRINT AT(11;7);s;"Gäste verlassen wegen”:PRINT 
AT(13 ; 9)"Erkrankung das Hotel ! " :gast = gast-s:RETUR 
N 

3090 4 IF akt1e(x)=200 THEN RETURN ELSE PRINT AT(2;8)"S 
1e bekommen eine Aktie geschenkt!":akt1e(x)=akt1e( 
x ) + 1: RETURN 

3100 5 gu=INT(RND*20000)+5000 

3110 PRINT AT(6;6)"Ihr Hotel Ist abgebrannt!!":PRINT AT 
(4;9)"S1e bekommen vom Übeltäter e1ne":PRINT AT(4; 
11) "Entschädigung. Höhe:";gu:ge1d(x)=geld(x)+gu:ga 
st=0:RETURN 

3120 6 s=INT(RN0*2000)+l 

3130 PRINT AT(14;7)"Eine Fliege Im Essen!":PRINT AT(14j 
9 ) "E1n Gast verklagt Sie,":PRINT AT<14;11)"sle müs 
sen";s;"zahlen.":geld(x)=geld(x)-s:RETURN 
3140 7 s=INT(RND*20000) 

3150 PRINT AT(2;7)“Spenden Sie für die Klrche";s;"?":PR 
INT AT ( 33 ; 10 ) " J/N : 

3160 LABEL sk 

3170 a$=INKEY$:IF a$="" THEN GOTO sk 

3180 IF UPPER$(a$) = “J" THEN ge 1d(x)=ge1d(x)-s:1nd(x ) = 1n 
d(x)+ROUND(s/100):RETURN 

3190 IF UPPER$(a$)<>"N" THEN GOTO sk ELSE 1nd(x)=1nd(x) 
-35:RETURN 

3200 8 s=INT(RND*8)+l 

3210 IF gast=0 THEN RETURN ELSE IF s>gast THEN GOTO 8 E 
LSE PRINT AT(4;7)"Das Bier Ist ausgegangen, deshal 
b“:PRINT AT(8;9)"ver1assen";s;"Gäste das Hotel!":g 
ast=gast-s:RETURN 
3220 9 gu=INT(RND*9999) 

3230 PRINT AT(4;9)"S1e haben Im Lottogugewonnen!":g 
eld(x)=geld(x)+gu:RETURN 

3240 10 IF gast=0 THEN RETURN ELSE PRINT AT(2;5)"E1n Ga 
st stolpert über einen Tepplch!":PRINT" Er fordert 
von Ihnen 4000, we11":PRINT" der Teppich unsachge 
mäß verlegt":PRINT" worden 1 st!”:ge 1d(x)=ge1d(x)-4 
000:RETURN 

3250 11 PRINT AT(2;7)"Ihr Hotel erhält einen Preis für" 
:PRINT AT(2;9)"d1e schönste Fasade des Landes ln": 
PRINT AT(35;11)"Höhe von 1000!":ge 1d(x)=ge1d(x) + 10 
00:RETURN 

3260 12 s=INT(RN0*10)+l 

3270 IF gast=0 THEN RETURN ELSE PRINT AT(4;9)"Das Zimme 
r eines Gastes ist ab-":PRINT AT(4;11)"gebrannt!": 
PRINT AT(25;13)"Schaden:";s;"X":zraum(x)=zraum(x)- 
s:RETURN 

3280 13 gu=INT(RND*2000)+1 

3290 PRINT AT(2;7)"S1e gewinnen Im Preisausschreiben,": 
PRINT AT(18;10)"und erha1ten";gu:ge 1d(x)=ge1d(x)+g 
u:RETURN 

3300 14 s=INT(RND*30000)+1000 

3310 PRINT AT(2;2)"E1n Fernsehstar bietet Ihnen an,":PR 
INT" einen Auftritt ln Ihrem Hotel zu":PRINT" mach 
en. Dar Star verlangt";s;" Gage!":PRINT AT(55;9)"( 
J/N)?":ep=INT(RND*60)+l 

3320 SET POINTS 10:SET EFFECTS 1:PRINT AT(2;13)"E1ntr1t 
tsprels:";ep 
3330 LABEL fa 

3340 a$=INKEY$:IF a$="" THEN GOTO fa 
3350 IF UPPER$(a$)="N" THEN RETURN 
3360 IF UPPER$(a$)< >"J" THEN GOTO fa 

3370 geld(x)=geld(x)-s:gu=INT(RND*4000):PRINT AT(15;13) 
"*";gu;"Besucher = ";ep*gu;"Elntrlttsgelder -";s 

;"Gage = ":SET POINTS 20:SET EFFECTS 3:PRIN 

T AT(10;16);ep*gu-s;:IF ep*gu-s<0 THEN PRINT"Verlu 
st" ELSE PRINT"GewInn” 

3380 geld(x)=geld(x)+ep*gu-s:RETURN 
3390 15 gu=INT(RND*500)+10 

3400 PRINT AT(6;9)"S1e erhalten einen Gutsche1n!":PRINT 
AT(25;12)"Wert:";gu:ge 1d(x) = ge1d(x)+gu:RETURN 
3410 16 tg=INT(RND*5)+l:sch=INT(RND*20)+l 
3420 PRINT AT(2;3)"E1n Lehrer will mit seiner Schul-”:P 
RINT" klasse (";schSchü1er)";tg;"Tage ln Ihrem": 
PRINT" Hotel verbringen.":PRINT AT(40;10)"E1nverst 
anden: (J/N)?" 

3430 LABEL sab 

3440 a$=INKEY$:IF a$="" THEN GOTO sab 
3450 IF UPPER$(a$)="N" THEN RETURN 
3460 IF UPPER$(a$)<>"J" THEN GOTO sab 
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3470 3g=INT(RND*5) :3= INT ( RND*1 8)+ 1 : pr = pz 1m( x ) /30*tg* (3C 
h+1):pr=R0UND(pr) 

3480 SET FONT 2:SET POINTS 10:SET EFFECTS 1:PRINT AT(2; 
14 ) "Einnahmen: ";pr : ge 1d(x ) =ge1 d(x)+ pr:IF sg = 2 OR 
30=4 OR sg=5 THEN PRINT AT(2;15)"01e Schüler verwü 
steten die Toilette zu";s;"X":ztoi 1(x) = zto11(x)-s 
3490 RETURN 

3500 17 sm=INT(RN0*20)+l:sr=INT(RND*20)+l 
3510 PRINT AT(2;9)"In Ihrem Hotel wurde eingebrochen!": 
PRINT" Mauerschaden:";sm;"V:PRINT" Raumschaden:"; 
ar;"X":zmaue r(x)=zmauer(x)-sm:z raum(x)=zraum(x)-sr 
:RETURN 

3520 18 IF akt1e(x)=0 THEN RETURN ELSE PRINT AT(27;6)"A 
ktlensturz!!":PRINT" Sie müssen alle Aktien an die 
Bank":PRINT" zurückgeben!":akt1e(x)=0:RETURN 
3530 19 8 = 1 NT(RND* 20) 

3540 IF gast=0 THEN RETURN ELSE IF s>gast THEN GOTO 19 
ELSE PRINT AT(2;5)"Neben Ihr Hotel wird ein neues" 
:PRINT AT(2;7)"Haus gebaut.":PRINT AT(2;9);s;“Gäst 
e ziehen wegen Lärmbe-":PRINT AT(2;11)"1ästlgung a 
us!":gast=gast-s:RETURN 
3550 20 gu=INT(RND*20000)+500 

3560 PRINT AT(2;7)"Ihr Hotel Ist bekannt für gutes Esse 
n1":PRINT AT(2;9)"S1e erhalten dafür einen Preis": 
PRINT AT(2;ll)"1m Werte von";gu:ge 1d(x)=ge1d(x)+ gu 
3570 RETURN 

3580 21 8=INT(RND*300)+1 

3590 IF Blessen(x) THEN GOTO 21 ELSE PRINT AT(6;9);s;" 

Einheiten der Nahrungsmittel":PRINT AT(6;ll)"1st u 
ngenleßbar!":essen(x)=essen(x)-s:RETURN 
3600 22 s=INT(RND*16000):PRINT At(9;9)"Spenden Sie";s;“ 
für das":PRINT AT(15;11)"Muttergenesungswerk?":PRI 
NT AT(50;13)”(J/N ) " 

3610 LABEL mgwab 

3620 a$=INKEY$:IF a$="" THEN GOTO mgwab 
3630 IF UPPER$(a$)="N" THEN RETURN 
3640 IF UPPERS(a$)< >"J" THEN GOTO mgwab 

3650 ga1d(x)=geld(x)-s:1nd(x)=1nd(x)+ROUND(s/75):RETURN 
3660 23 s=INT(RND*4)+l 

3670 IF gast=0 THEN RETURN ELSE IF slgast THEN GOTO 23 
ELSE PRINT AT(2;9)"Wegen des schlechten Wetters re 
l3en":PRINT AT (17 ; 11) ; s ; "Gäste ab ! 11 : gast = gast-s : RE 
TURN 

3680 24 IF e.9sen(x)+essm(x)< = l THEN RETURN ELSE PRINT A 
T(2;9)"D1e Hälfte der Nahrungsmittel 1st":PRINT AT 
(40;11)"verdorben!!":essen(x)=essen(x)/2:essm(x)=e 
ssm(x)/2:RETURN 

3690 25 PRINT AT(2;9)"Wol1en Sie ein Kostümfest ver-":P 
RINT" anstalten?":PRINT AT(50;13)"(J/N ) " 

3700 LABEL koab 

3710 a$=INKEY$:IF a$="" THEN GOTO koab 
3720 IF UPPERS(a$)=”N" THEN RETURN 
3730 IF UPPERS(aS)< >"J" THEN GOTO koab 
3740 so = INT(RND*10000):pm=INT(RN0*5) +1 

3750 IF pm=2 OR pm=4 OR pm=5 THEN PRINT" Gewinn:";sg:ge 
ld(x)=geld(x)+sg:RETURN 

3760 PRINT" Kostensg:ge 1d(x)=ge1d(x)-sg:RETURN 
3770 26 s=INT(RND*25)+l 

3780 PRINT AT(2;9)"E1n schwerer Sturm verursachte":PRIN 
T AT(2;ll);s;"% Schaden am Dach des Hotels!":zdach 
(x)=zdach(x)-s:RETURN 

3790 27 PRINT AT(2;4)"Er1 auben Sie einigen Reportern, f 
ü rPRINT AT(2;6)"Werbezwecke Fotos über Ihr":PRIN 
T AT(2;8)"Hote1 zu machen?":PRINT AT(50;10)"(J/N ) " 
3800 LABEL repab 

3810 aS=INKEYS:IF a$=" " THEN GOTO repab 
3820 IF UPPERS(a$)="N" THEN RETURN 
3830 IF UPPERS(a$)<>"J" THEN GOTO repab 
3840 mp=INT(RND*5)+l 

3850 IF mp=2 OR mp=4 OR mp=5 THEN SET EFFECTS 5:gu=INT( 
RN0*25000):PRINT" Sie bekommen dafür";gu:ge 1d(x ) =g 
e1d(x)+gu:RETURN 
3860 LABEL ss 

3870 SET EFFECTS 5 : s = INT(RND*80)+1 

3880 IF gast=0 THEN RETURN ELSE IF slgast THEN GOTO ss 
ELSE PRINT;s;"Gäste fühlen sich be1ästlgt":PRINT" 
und reisen ab!":gast=gast-s:RETURN 
3890 28 gu=INT(RND*50000)+5000:PRINT AT(2;9)"E1ne bekan 
nte Schauspielerin kommt":PRINT AT(2;ll)"zu Besuch 
l":PRINT" Sie überreicht Ihnen eine Sehenkung":PRI 
NT" ln Höhe von";gu:ge 1d(x) = ge1d(x) + gu:RETURN 
3900 29 s=INT(RND*2000)+200:PRINT AT(2;7)"Wegen einer z 
u vollen KloschüsselPRINT" kam es zu einer übers 
chwemmuno!PRINT" die Feuerwehr pumpt das Wasser 
ab.":PRINT" Kosten:";s:geld(x)=ge1d(x)-s:RETURN 


3910 

3920 

REM 

REM ****** E I 

N N 

AHM 

E N 

U N 

D 

AUS 

3930 

3940 

3950 

E N ****** 

REM 

LABEL einaus 
WINDOW TITLE"H 

A U 

S H A 

L T 

S B U 

C H' 

' : CLS 
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3960 SET FONT 3:SET POINTS 20:SET EFFECTS 5:PRINT AT(3; 
2)"EINNAHMEN:":PRINT AT(33;2 )"AUSGABEN:":SET POINT 
S 18:SET EFFECTS 1 

3970 PRINT AT(2;5);gast;"Gäste":PRINT AT(5;7 ) "*":PRINT 
AT(2;9);pz1m(x);"Z1mmerpreis":PRINT AT(2;11)"= = = = = 
============" 

3980 PRINT AT(33;5);koch(x);"Köche = ";koch(x)*kkoch:PR 
INT AT(33;7);zm(x);"Zimmermädchen = ";zm(x)*kzm:PR 
INT AT(33;9);page(x);"Pagen = ";page(x)*kpage:PRIN 
T AT(33;11);1boy(x);"LIftboys = ";1boy(x)*k1boy 
3990 PRINT AT(33;13)"=====================" 

4000 ausg=koch(x)*kkoch+zm(x)*kzm+page(x)*kpage+lboy(x) 
*klboy:e1nn=pz1m(x)*gast:geld(x)=geld(x)+einn-ausg 
:IF essen(x ) <gast THEN hj=gast-essen(x):ge 1d(x)=ge 
ld(x)-hj*100:gast=gast-hj 
4010 essen(x)=essen(x)-gast 

4020 SET POINTS 20:SET EFFECTS 1:PRINT AT(5;13);e1nn:PR 
INT AT(55;15);ausg:LINE 3400;1800,3400;5000 WIDTH 

4 

4030 SET POINTS 28:PRINT AT(25;17)"+" 

4040 IF einnlausg THEN PRINT AT(16;17)"+ Gewinn:";e1nn- 
ausg;"+" ELSE PRINT AT(16;17)"- Verlust:"jausg-eln 
n ; " -" 

4050 WHILE INKEY$="":WEND 

4060 WINDOW TITLE"I NDEX ALLER MITSPIE 
L E R":CLS 

4070 LINE 0;4600,8300;4600 

4080 ab=600 

4090 FOR y=l TO sp 

4100 1nd(y)=geld(y)/1000+bett(y)/6+(aktie(y)-25)/3+koch 
(y)+zm(y)+page(y)+lboy(y)+essen(y)/4:1nd(y)=ROUND( 
1nd(y ) ):IF 1nd(y)<0 THEN 1nd(y)=0 
4110 BOX ab;600,1700,1nd(y)+l FILL WITH 2 
4120 ab=ab+1750:NEXT y 
4130 ab=800 
4140 FOR y=l TO sp 

4150 1nd(y)=ge1d(y)/1000+bett(y)/6+akt1e(y)/3+koch(y)*2 
0+zm(y)*17+page(y)*10+lboy(y)*13+essen(y)/4.5:IF i 
nd(y)<0 THEN ind(y)=0 

4180 MOVE ab+50;410:SET POINTS 10:PRINT LEFT$(name$(y), 
10) 

4170 MOVE ab+90;240:PRINT ROUND(1nd(y)) 

4180 ab=ab+l750:NEXT y 

4190 WHILE INKEY$=“":WEND 

4200 IF ind(x)> = 4000 THEN GOTO gewlnner 

4210 IF mw=l THEN GOSUB monatswechsel 

4220 NEXT x 

4230 REM ****** MONATSWECHSEL 
4240 LABEL monatswechsel:CLS:mon=mon+1 

4250 WINDOW TITLE"Vergangene Ze1t:":CLS:BOX 300;0,8000, 
5000 WIDTH 10 FILL WITH 28:SET FONT 3:SET POINTS 7 
2:PRINT AT(27;7);mon:PRINT AT(22;14)"Monate":mw=0: 
WHILE INKEY$=" M :WEND 
4260 CLS 

4270 SET FONT 2:SET POINTS 16 
4280 S=INT(RND*5)+l 

4290 IF 3=2 OR 3=4 THEN IF kkoch<4100 THEN 11=INT(RND*1 
00)+1:PRINT AT(23;10)"Dle Löhne steigen um";11:kko 
ch=kkoch+l1:kzm=kzm+l1:kpage=kpage+11:k1boy=k1boy+ 
11:11=0:WHILE INKEY$="":WEND 
4300 CLS:WINDOW TITLE"Sple1 stand abspeichern":SET FONT 
1:SET POINTS 16:PRINT:PRINT"Wo 11en Sie den Spielst 
and abspei ehern?":PRINT AT(30;8)"(J/N)" 

4310 LA8EL abab 

4320 a$=INKEY$:IF a$="" THEN GOTO abab 
4330 IF UPPER$(a$)<>"J" THEN RETURN 
4340 OPEN #8 APPEND "monsp.hom" 

4350 PRINT #8 sp,mon,kkoch,kzm,kpage,k1boy 
4360 CLOSE 

4370 OPEN #9 APPEND "dummy.hom" 

4380 FOR y=l TO sp 

4390 PRINT #9 ge 1d(y),be11(y),ak11e(y),koch(y),zm(y),pa 
ge(y),lboy(y),pz 1 m(y),zkp(y),essen(y),essm(y),zdac 
h(y),zmaue r(y),zto11(y),zaufz(y),z raum(y),name$(x) 
4400 NEXT y 
4410 CLOSE 
4420 RETURN 
4430 REM 

4440 REM ****** Gewinner ****** 

4450 REM 

4460 LABEL gewlnner 
4470 CLS:WINDOW TITLE"" 

4480 BOX 600;700,7300,4200 ROUNDED WIDTH 3 FILL WITH 28 
4490 SET FONT 3:SET POINTS 36:SET EFFECTS 5:PRINT AT(17 
; 4) " U R K U N D E" 

4500 SET POINTS 18:SET EFFECTS 1:PRINT AT(10;9)"M1t die 
ser Urkunde wird ";name$(x);" als beste(r)":PRINT 
AT(10;12)"Hote1 manager(in) des Jahres anerkannt.": 
PRINT AT(10;15)“Er(S1e) benötigte eine Zeit von";m 
on;"Monaten." 

4510 SET FONT 1:SET POINTS 10:SET EFFECTS 1:PRINT AT(37 
;20)"<TASTE)":WHILE INKEY$="":WEND:CLS:END 


Listing Hotelmanager 
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Autor: Matthias Uphoff 

Von der Idee zum Programm 


Mehmen Sie teil an dem Abenteuer I 
Computer"! In zehn lebendig und 
leicht verständlich geschilderten Reisen! 
in die Welt der Computergrafik, Simula¬ 
tion und künstlichen Intelligenz erarbei¬ 
tet der Autor mit Ihnen zusammen 
insgesamt 17 interessante Programme, 
die Sie auf Diskette/Kassette erhalten. 

Das umfangreiche, 180seitige Handbuch 
vermittelt Ihnen auf anschauliche und 
unterhaltsame Weise, wie aus Algorith¬ 
men Datenstrukturen und letztendlich 
I Software entsteht: Von der Idee zum 
Programm - der ideale Kursus zum 
Einstieg in das Computerwissen, für 
Hobby und Schulunterricht. Sehen Sie 
selbst, zu welchen phantastischen 
Grafiken und verblüffenden Intelligenz¬ 
leistungen der CPC bei raffinierter 
Programmierung fähig ist! 

Weiterhin: 

komplexe Grafik 

Ü9lernen die mathematischen Grundlagen von Fraktalgrafiken und erarbei¬ 
te einen kompletten Fraktalgenerator zur Erzeugung von “Apfelmännchen“- 
Eitfern, 

0*r Computer lernt 

Eieben Sie ein Paradebeispiel für “Künstliche Intelligenz": Das Programm 
'Minischach" ist lernfähig und wird mit jeder Partie ein bißchen besser. 

/ iVordmaster 

Seraten ein Wort, das sich der Computer ausgedacht hat. Dann rät der 
Rachner ein Wort, das Sie sich ausgedacht haben. Wer braucht weniger 
versuche? Sie werden sich wundern... 

I Wordketten 

V-t einem raffinierten Algorithmus löst der CPC Wortketten-Rätsel. Oder er 
srllndet neue Rätsel - ganz wie Sie wollen. 

Entwicklungshilfe 

Eire gut ausgestaltete Simulation versetzt Sie in die Lage eines Entwick- 
■.rvgshelfers. der eine Hungersnot abzuwenden versucht. Aber Ihre Mittel 
lind begrenzt. 

Das Software-Experiment 

• Siebzehn verschiedene, lauffähige Programme 

• 180 Seiten Anleitung 

Kassette nur DM 59, - * 

Diskette nur DM 69, - * 
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Der Computer als Stratege 
Ein raffiniertes System von Spielzugbe¬ 
wertungen macht den CPC zu einem fast 
unschlagbaren Gegner im Gobang-Spiel, 
der Ihnen anfangs saftige Niederlagen 
bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das 
müssen Sie selbst herausfinden. 


Das Spiel des Lebens 
Nach natürlichen Prinzipien des 
Wachstums erzeugt der Computer 
phantastische, kristallförmige Farb- 
strukturen. Ändern Sie die Regeln und 
Voraussetzungen und sehen Sie, was 
für neue, noch nie dagewesene For¬ 
men sich ergeben. 


Das Ökologie-Experiment 
Der Computer zeigt Ihnen in animier¬ 
ter Farbgrafik einen simulierten 
Lebensraum mit Weideland, Schafen 
und Wölfen. Erforschen Sie die öko¬ 
logischen Gesetzmäßigkeiten, und 
schaffen Sie ein stabiles, natürliches 
Gleichgewicht. 


Pascal läßt grüßen 
Ein erstaunliches Programm enthüllt 
verborgene Strukturen im 
sogenannten “Pascalschen Drei¬ 
eck“. Die grafische Darstellung 
ergibt traumhaft schöne und farbige 
Musterbilder. 


Mit roher Rechengewalt 
Mit dem “Brute-Force“- 
Algorithmus darf der CPC so rich¬ 
tig loslegen und spielt mit roher 
Rechengewalt in dem afrikani¬ 
schen Strategiespiel “Kalaha“ alle 
Gegner an die Wand - oder kön¬ 
nen Sie ihn trotzdem schlagen? 


für CPC 464/664/6128 




* Unverbindliche Preisempfehlung. Unabhängig von der Anzahl der bestellten Artikel berechnen wir lür das Inland 4.- DM bzw. lür das Ausland 6.- DM Porto und Verpackung. 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 






























ConText PRO 

- Textverarbeitung für jede 
Anwendung 

Wer heute ein Programm für die Textverarbeitung sucht, kann in der Regel 
zwischen zwei Arten von Angeboten wählen: entweder komplexe teure Pro¬ 
grammpakete mit mehr oder weniger realistischen DTP-Versprechungen 
oder Billig-Textverarbeitungen mit Einschränkungen an allen Ecken und 
Enden. 


Zunächst sollte jeder für sich überle¬ 
gen, wozu er die Textverarbeitung ein- 
setzen möchte, und dabei kommen vie¬ 
le bei realistischer Einschätzung zu 
dem Entschluß, daß einige Programme 
wirklich nur für Profis geeignet sind 
(das betrifft sowohl deren Preis als 
auch deren Bedienung). In der unteren 
Preisklasse gibt es nur wenig wirklich 
zufriedenstellend arbeitende Textver¬ 
arbeitungen. ConText PRO schließt 
diese Lücke zwischen den zu teuren 
Profi-Programmen und den “Möchte¬ 
gerne “-Textverarbeitungen. Dabei ist 
ConText PRO durchaus professionell 
einsetzbar. 

Entwicklung 

ConText PRO ist eine konsequente 
Weiterentwicklung der bewährten 
Textverarbeitung, die 1985 für den 
Schneider CPC 464 geschrieben wur¬ 


de. Aus den Erfahrungen der Jahre 
nach 1985 wurde das Programm zu sei¬ 
ner heutigen Qualität umgearbeitet, die 
Geburt auf einem Homecomputer sieht 
man ihm lange nicht mehr an. Dabei 
kommt dem Programm durchaus seine 
Herkunft zugute. Nur eine gut durch¬ 
dachte Programmierung erlaubt es, die 
Einschränkungen eines Homecompu¬ 
ters zu beherrschen. 

Das Konzept 

Die Textdarstellung erfolgt kompro¬ 
mißlos im Grafikmodus. Diese Be¬ 
triebsart findet man selten bei Textpro¬ 
grammen, da sie die Programmierung 
wesentlich aufwendiger macht. Die 
Vorteile liegen jedoch klar auf der 
Hand: 

Hervorhebungsarten wie Fett, Unter¬ 
strichen, Breit, Kursiv und Kombina¬ 
tionen untereinander werden naturge¬ 


treu auf dem Bildschirm dargestellt, 
was dem Anwender das Verwirrspiel 
mit unverständlichen Steuerzeichen er¬ 
spart, Stichwort ist hier WYSIWYG 
(what you see is what you get): Man 
sieht auf dem Bildschirm genau das, 
was dann später auch zu Papier ge¬ 
bracht wird. ConText PRO stellt drei 
verschiedene Bildschirm-Modi bereit, 
die entweder eine besonders augen¬ 
freundliche Darstellung bieten oder ei¬ 
nen größeren Textabschnitt zeigen. 
Mit einer Hercules-, EGA- oder VGA- 
Karte können bis zu 60 Textzeilen les¬ 
bar mit allen Schriftarten dargestellt 
werden. Auch während der Arbeit 
kann beliebig zwischen diesen Modi 
umgeschaltet werden, bis man die indi¬ 
viduell günstigste Darstellungsart fin¬ 
det. Die einzelnen Menüs können von 
einer Statuszeile ausgehend angewählt 
werden. 

Die vielfältigen Befehle (zum Teil 
Wordstar-kompatibel) sind alle über 
Pulldown-Menüs erreichbar und ent¬ 
weder mit den Cursor-Tasten oder der 
Maus ansteuerbar. Die Befehlseingabe 
über diese Menüleiste ist für jeden An¬ 
fänger eine große Hilfe, fortgeschritte¬ 
ne Anwender können sich dann der 
Wordstar-kompatiblen Tastenkom¬ 
mandos oder eigenen Tastendefinitio¬ 
nen bedienen. ConText PRO paßt sich 
also dem Anwender an und nicht umge¬ 
kehrt. Falls vorhanden, kann alles (bis 
auf die Texteingabe selbst) mit der 
Maus erledigt werden, aber auch die 
Bedienung über Cursor-Tasten ist 
durch eine gute Anordnung und Zu¬ 
sammenstellung der einzelnen Befehle 
in den Pulldown-Menüs komfortabel. 
Bei den Extras befinden sich im übri¬ 
gen einige Leckerbissen: So ist es mög¬ 
lich, den Texten das Datum und die 
Zeit zuzufügen, eine ASCII-Tabelle 
liefert Zeichen, die auch direkt in den 
Text übernommen werden können, ein 
Kalender sorgt für Terminübersicht, 
und ein Editor für PC-Blockgrafik steht 
dem Anwender zur Verfügung. 

Anwendung 

Für den Anwender sind drei Dinge 
wichtig: Bedienungsfreundlichkeit, 

ausreichende Möglichkeiten der Text¬ 
bearbeitung (auch für Sondersituatio¬ 
nen wie z.B. mathematische Formeln) 
und last but not least, Funktionalität in 
Einklang mit Bedienungssicherheit. 
ConText PRO erfüllt diese Grundfor¬ 
derung an Qualitäts-Software und kann 
damit als “praxisorientiert“ bezeichnet 
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werden. Viele spezielle ConText-Fea- 
tures entstanden unmittelbar aus den 
Anforderungen der täglichen Program¬ 
mier- und Schreib-Praxis. ConText 
PRO genügt dabei auch professionellen 
Anforderungen: So können bis zu fünf 
unabhängige Texte gleichzeitig bear¬ 
beitet werden; ein Programm-Editor 
im Non- Dokument-Modus steht für 
Programmieranwendungen zur Verfü¬ 
gung; als Zeilen- oder Spaltenblock 
markierte Abschnitte lassen sich zwi¬ 
schen den Texten austauschen. Das 
Dateimenü ersetzt weitgehend eine 
DOS-Benutzeroberfläche, und die ma¬ 
kro-programmierbare Tastatur ermög¬ 
licht es, auf Knopfdruck andere Pro¬ 
gramme zu starten (Compiler, Utili¬ 
ties, DOS-Befehle usw.) und quasi als 
externe Kommandos in ConText einzu¬ 
binden. 

Die Funktion ’SETUP’ verankert die 
aktuelle Grundeinstellung (Seitenlay¬ 
out, Tastaturbelegung usw.) fest im 
Programm, so daß sie gleich nach dem 
Programmstart zur Verfügung steht. 
Da ConText PRO mit 64 kByte nur we¬ 
nig Platz auf der Festplatte (oder Dis¬ 


kette) beansprucht, ist es ohne weiteres 
möglich, mehrere spezialisierte Con¬ 
Text-Versionen anzulegen und in ver¬ 
schiedenen Verzeichnissen bereitzu¬ 
halten. Als kleine Demonstration hier 
einige Beispiele: 

Eine Briefversion mit passendem Sei- 
ten-Layout, die beim Start automatisch 
einen Standard-Briefkopf lädt und das 
aktuelle Datum einsetzt, eine andere 
Version mit einer speziellen Drucker- 
Installation für Etiketten oder Briefum¬ 
schläge. Eine Editor-Version, die sich 
im Non-Dokument-Modus meldet und 
zur Programmierung in einer beliebi¬ 
gen Programmiersprache oder von 
Batch-Dateien verwendet werden 
kann. 

Die sich hier ergebenden Möglichkei¬ 
ten sind nur durch die Phantasie des 
Anwenders begrenzt. ConText PRO ist 
so recht einfach für ganz individuelle 
Wünsche bei der Textverarbeitung 
zu modifizieren. Natürlich ist es auch 
möglich, sich die entsprechenden 
Dokumente zu erstellen und je nach 
Bedarf mit dem Programm zu bear¬ 
beiten. 


Leistungsumfang 

Was ConText PRO im einzelnen alles 
leistet, kann hier kaum vollständig auf¬ 
gezählt werden. Es sei nur festgehal¬ 
ten, daß neben den oben erwähnten Fä¬ 
higkeiten nichts fehlt, was eine voll¬ 
wertige Textverarbeitung ausmacht. 
Hier sind ergänzend nur einige heraus¬ 
ragende Punkte zu nennen: Neben ech¬ 
tem WYSIWYG verfügt das Pro¬ 
gramm über eine hervorragend treffsi¬ 
chere Silbentrennung und wirklich alle 
Textverarbeitungs-Standard-Funktio- 
nen bis hin zur Spaltenblöcken und der 
Möglichkeit des Rechnens im Text, 
dieses ist spalten- und blockweise mit 
Anzeige der Summe und des statisti¬ 
schen Mittelwertes möglich. Auf 
Wunsch werden automatisch BAK-Da- 
teien der bearbeiteten Texte angelegt. 
Das heißt, die Urfassung des gerade 
veränderten und abgespeicherten Tex¬ 
tes bleibt als Sicherheitskopie erhalten 
(eben mit dem Dateizusatz .BAK). Die 
Bedienungsfreundlichkeit beginnt be¬ 
reits bei der Programm-Installation, 
diese ist halbautomatisch, das heißt, 
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Abb. 2:... und die Möglichkeit des Rechnens im Text, wobei als großes Plus 
auch die Anzeige des Mittelwertes anzusehen ist 


Abb. 1: Zwei der Möglichkeiten, die ConText PRO bietet: Jede Schriftart 
wird auf dem Bildschirm dargestellt, ob kursiv, unterstrichen, breit, fett, 
oder untereinander kombiniert... 


das Programm untersucht die vorhan¬ 
dene Hardware und gibt dem Benutzer 
Wahlmöglichkeiten, welche in der Re¬ 
gel nur mit der Taste < Return > bestä¬ 
tigt werden muß. Die Bedienung der 
Textverarbeitung selbst ist dann so ein¬ 
fach wie der Umgang mit einer 
Schreibmaschine - mehr noch: Pull- 
down-Menüs und Shortcut-Bedienung, 
Hilfs-Fenster und Mausunterstützung 
in jeder Arbeitsphase, bei allen Gele¬ 
genheiten. 

Vorbildlich ist auch die Flexibilität des 
Systems mit frei konfigurierbaren Ta¬ 
stenbelegungen und Definition eigener 
Zeichensätze, das alles bei großer Ar¬ 
beitsgeschwindigkeit. Ebenfalls sind 
Sonderzeichen im Text einsetzbar, sie 
können direkt aus einer Tabelle heraus 
übernommen werden. Einfache Grafi¬ 
ken können ebenfalls im Text einge¬ 
setzt werden, so lassen sich recht ein¬ 
fach Texte in Boxen setzen oder unter¬ 
legen. 

Zum Lieferumfang gehört ein univer¬ 
seller Maustreiber, mit dem die mei¬ 
sten Funktionen auf Mausbetrieb um¬ 
gestellt werden können. 

Hardwarevoraussetzung 

Ein IBM-kompatibler Rechner muß es 
schon sein, dabei ist jedoch gleichgül¬ 
tig, ob es sich um einen PC, XT oder 
AT handelt. Für die Darstellung auf 
dem Bildschirm im Grafik-Modus ist 
natürlich eine Grafikkarte erforderlich. 
Unterstützt werden CGA-Farbgrafik, 


Hercules-Monochrom (HGC), EGA- 
Farbgrafik und VGA-Farbgrafik. 

ConText PRO ist trotz seines großen 
Leistungsumfanges kein Speicher¬ 
platz-Fresser. Bereits mit einem Dis¬ 
kettenlaufwerk und 256 kByte Arbeits¬ 
speicher läuft das Programm einwand¬ 
frei. Auch die Anforderungen an das 
Betriebssystem sind bescheiden, ge¬ 
nügt doch bereits DOS 2.0 (oder hö¬ 
her). 

Fazit 


Die Fähigkeiten von ConText PRO 
weiß sicher nur derjenige in vollem 
Umfange zu schätzen, der sich schon 
mit anderen Textverarbeitungs-Pro- 
grammen beschäftigt hat. 

Im Gegensatz zu vielen anderen Text¬ 
verarbeitungen ist ConText PRO für 90 
Prozent aller denkbaren Anwendungen 
im privaten und semiprofessionellen 
Bereich uneingeschränkt zu empfeh¬ 
len. Wer sich beispielsweise das Pro¬ 
gramm für das Schreiben seiner Di¬ 
plom-Arbeit zulegt, kann sicher sein, 
für seine Doktor-Arbeit immer noch 
gerüstet zu sein. Aber auch für das 
Schreiben von Rechnungen und Liefer¬ 
scheinen sowie geschäftlichem und pri¬ 
vatem Briefverkehr ist ConText PRO 
sein Geld wert. 

Für rund 200,- DM erhält man ein soli¬ 
des Software- Produkt aus deutscher 
Entwicklung mit einem sehr guten 
Handbuch, welches zudem erfrischend 
locker geschrieben ist, ohne dabei 


oberflächlich zu sein. Fazit: Ein soli¬ 
des Programm, mit dem zu arbeiten 
Freude macht. 

(Dipl. Ing. Oliver Rosenbaum/jb) 


Kurzinfo: 

Programm: ConText PRO 
Vertrieb: DMV-Verlag 
Preis: 199,— DM 

Hardware-Anforderung: 

IBM/ komp. PC/XT/AT 
mit mind. 256 kByte 
CGA,EGA,VGA, Hercules- 
Monochrom 

Besonderheiten: 

— WYSIWYG 
(Darstellung der Schriftarten 
auf dem Bildschirm) 

— Layout- Funktion 

— Rechnen im Text 

— zweispaltiges Schreiben 

— Serienbriefe 

— eingebauter Grafikmodus 

Zubehör: 

— Adressenverwaltung mit Über¬ 
nahme von Adressen in ConText 
(DMV 49,- DM) 

— Zeicheneditor für eigene 
Zeichensätze 

(DMV 99,- DM) 
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Listiges LISTen 

Haben Sie sich schon einmal über den unzureichenden LIST-Befehl unter 
BASIC2 geärgert? Hat man an einem Programmteil eine Änderung vor¬ 
genommen und will diese ausgedruckt haben, so muß jedesmal das ganze 
Listing ausgegeben werden. Welche Papierverschwendung! 


Sind Sie mit dem Ausdruck Ihrer Da¬ 
teien unzufrieden, weil die unter¬ 
schiedlichen Zeilenlängen einen wirren 
optischen Eindruck auf dem Papier 
hervorrufen? Dieses Programm schafft 
Abhilfe, denn hiermit wird es möglich, 
alle Arten von ASCII-Dateien forma¬ 
tiert auszudrucken, also auch BASIC2- 
Programme, die ja immer als ASCII- 
Dateien abgespeichert werden! 

Formatieren kann man nicht 

nur Disketten 

Formatiert heißt. Sie können Rand, 
Zeilenbreite und Schriftarten frei wäh¬ 
len. Ebenso sind Teilausdrucke, Da¬ 
tumsangabe, Seitenformat und Kom¬ 
mentierung möglich. Bei alldem haben 


Sie noch die Möglichkeit, die Zeilen 
numeriert auszugeben. Nach dem Pro¬ 
grammstart gelangt man in das Start¬ 
menü und bekommt das aktuelle Ver¬ 
zeichnis aufgelistet. Hat man nicht die 
richtige Datendiskette im Laufwerk, so 
läßt sich nach einem Austausch mit 
<D> das neue Directory anzeigen. 
Mittels < E > kann der Pfad für ein be¬ 
liebiges Laufwerk beziehungsweise ein 
Verzeichnis eingegeben werden. 

Zu beachten ist hierbei, daß in BASIC2 
der Name eines Inhaltsverzeichnisses 
immer mit einem ’ \ ’ abschließen 
muß! Das Programm erinnert mit einer 
Hinweiszeile daran. Bei Nichtbeach¬ 
tung dieser Regel wird nur das aktuelle 
Verzeichnis aufgelistet. Nach <R> 
wird die Eingabe der gewünschten Da¬ 


tei verlangt. Das Programm überprüft 
nun, ob diese Datei auf der Diskette ist 
und gibt gegebenenfalls eine Fehler¬ 
meldung aus. War die Eingabe korrekt, 
so gelangt man in ein Wahlmenü, mit 
dessen Hilfe die gewünschten Einstel¬ 
lungen getroffen werden. Alle gewähl¬ 
ten Einstellungen werden auf dem Bild¬ 
schirm angezeigt. Auch können sie be¬ 
liebig oft geändert werden. 

Nach jedem Ausdruck gelangt man au¬ 
tomatisch in dieses Auswahlmenü zu¬ 
rück, wobei die Einstellungen bis zu ei¬ 
ner Änderung erhalten bleiben. Wird 
ein Teilausdruck gewünscht, so wählt 
man zunächst < Betrachten > aus. Da¬ 
durch wird die Datei mit den Zeilen- 
nuinmem auf dem Bildschirm aufgeli¬ 
stet, so daß mit der Unterbrechertaste 
in Ruhe der gesuchte Listbereich be¬ 
stimmt werden kann. Zu erwähnen ist 
noch, daß die Druckersteuerungen den 
EPSON LQ-850 betreffen. Im ’LA¬ 
BEL “schriftmen“’ lassen sich jedoch 
leicht andere Druckercodes und/ oder 
auch Schriftarten einfügen! Wer Wert 
auf ordentliche Dokumentationen legt, 
wird mit diesem Programm sicher auf 
seine Kosten kommen und gerne damit 
arbeiten. (Rüben Rimmler/jb) 


100 REM PCLISTER.BAS von Rüben Rirrnnler 
110 

120 LABEL fenster 

130 CLOSE WINDOW 3: CLOSE WINDOW 4: WINDOW #1 CLOS 
NOOW #2 CLOSE 

140 SCREEN #1 TEXT 70 FIXED. 21 FIXEO 
ISO WINDOW #1 PLACE 40;6 

160 WINDOW #1 TITLE "LISTING BETRACH 

N" 

170 SET #1 COLOUR 1 
180 

190 SCREEN #2 TEXT 70 FIXED, 21 FIXED 
200 WINDOW #2 PLACE 40;6 

210 WINDOW #2 TITLE "P C - L I S T E 

220 SET #2 COLOUR 12 

230 WINDOW #2 OPEN: STREAM «2 

240 

250 ALERT 0 TEXT "Dieses Programm ermöglicht den A 
ck ","von Dateien und Basic2-Programmlistings 
formatierter Form. Teilausdrucke mit "."oder 
Zeilennummer, Rand, Kommentar ","und Datumsein 
sind genauso möglich! " BUTTON RETURN "OKAY" 
260 LABEL definitionen 

270 ein$=CHR$(27)+"p": aus$=CHR$(27)+"q" 

280 

290 LABEL abfrage 

300 CLS: PRINT: FILES pfad$ 

310 PRINT COLOUR(1) STRING$(70,); 

320 PRINT T AB(2 7) ein$+" [D] = DIRECTORY "+aus$ 

330 PRINT T AB (2 7) ein$+" [F] = FILE/PATH " + a-us$ 

340 PRINT T AB(2 7) ein$+" [E] = END/RESET " + aus$ 

350 PRINT T AB(2 7) ein$+" [R] = RUN/START " + aus$ 

360 REPEAT: taste$=INPUT$(1): UNTIL INSTR("DdEeFfR 
ste$)< >0 

370 TEXT FEED -4: TEXT CLEAR EOS 

380 IF UPPER$(taste$)="D" THEN pfad$="": GOTO abfr 

390 IF UPPER$(taste$)="E“ THEN CLEAR RESET: END 

400 IF UPPER$(taste$)="F" THEN GOSUB pfad: GOTO ab 

410 IF UPPER$(taste$)=“R" THEN 11=1: br=80: von=0: 

100000: GOTO wählen 

420 

430 LABEL pfad 

440 PRINT ein$+" BEISPIELE: *.* *.DAT A:\ 

B: \BASI C2\ BASIC2\EXAMPL ES\ " + aus$ 
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450 INPUT " FILE-PATH: ", pfad$ 

460 RETURN 
470 

480 LABEL wählen 

490 PRINT ein$: INPUT " Bitte Datei-Name mit Exten 
eingeben: ", datei$: PRINT aus$: datei$=UPPER 

e i $) 

500 IF datei$="" THEN GOTO abfrage 

510 IF FIND$(date1$)="" THEN GOSUB fehler: GOTO wä 
520 CLS: SET COLOUR 10 

530 PRINT AT(2;2) ein$+"Dateiauswah1 : " + aus$; COLOU 
"+datei$ 

540 PRINT AT(1;3) COLOUR(l) STRING$(70,"_") 

550 PRINT AT(2;5) ein$+"Linke Spa 1te: " + aus$+" 1" 

INT AT(26;5) ein$+"Zei1enbreite:"+aus$+" 80"; 

NT AT(50;5) ein$+"Datumsangabe:" + aus$ + " OHNE" 
560 PRINT AT(2;7) ein$+ "Nummer1erung:" + aus$+" AUS" 
INT AT(26;7) ein$+"Seitenformat:" + aus$+" AUS"; 
NT AT(50;7) ein$+"Mengenformat:"+aus$+" GANZ" 
570 PRINT AT(2;9) ein$+"Kommentieren:"+aus$+" 

580 PRINT AT(1; 10) COLOUR(l) STRING$(70, ) 

590 ende=0: SET COLOUR 12: GOTO format 
600 

610 LABEL format 

620 LOCATE 1;11: TEXT CLEAR EOS 

630 PRINT TAB(26) ein$+" [A] = ABBRUCH/ENDE "+aus$ 

640 PRINT T AB(2 6) ein$+" [B] = < BETRACHTEN > "+aus$ 

650 PRINT TAB(26) ein$+" [0] = Datumsangabe "+aus$ 

660 PRINT TAB(26) ein$+" [K] = Kommentieren "+aus$ 

670 PRINT TAB(26) ein$+" [L] = Linke Spalte "+aus$ 

680 PRINT TAB(26) ein$+" [M] = Mengenformat " + aus$ 

690 PRINT TAB(26) ein$+" [N] = Nummerierung " + aus$ 

700 PRINT TAB(26) ein$+" [S] = Seitenformat " + aus$ 

710 PRINT TAB(26) e1n$+" [Z] = Zeilenbreite " + aus$ 

720 PRINT T AB ( 2 6 ) e1n$+" [#] = < LI ST/PR I N'i > " + aus$ 

730 REPEAT: taste$=INPUT$(1): UNTIL INSTR("AaBbDdK 
NnSsZz#",taste$)<>0 
740 TEXT FEED -10: TEXT CLEAR EOS 


750 

IF 

UPPER$(taste$)=' 

A" 

THEN 

GOTO 

abf rage 

760 

IF 

UPPER$(taste$)=' 

#" 

THEN 

GOTO 

drucker 

770 

IF 

UPPER$(taste$)=' 

B" 

THEN 

GOSUB 

betrachten 

780 

IF 

UPPER$(taste$)=' 

D" 

THEN 

GOSUB 

datum 

790 

IF 

UPPER$(t a s te $) = ' 

K" 

THEN 

GOSUB 

kommentar 

800 

IF 

UPPER$(taste$)=’ 

L" 

THEN 

GOSUB 

1istpos 
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810 IF UPPER$(taste$)="Z" THEN GOSUB listpos 
820 IF UPPER$(taste$)="M" THEN GOSUB listbereich 
830 IF UPPER$(taste$)="N" THEN GOSUB nummern 
840 IF UPPER$(taste$)="S" THEN GOSUB listformat 
850 GOTO formst 
860 

870 LABEL ablauf 

880 sp=l1: we=br: i=0: s=0: y = zw 
890 IF n r=1 THEN li = 11+5: br = br-5 
900 LPRINT TAB(sp) datei$: y=y+zw 

910 IF datum$< >"" THEN LPRINT TAB(sp) datum$: y = y + 
920 tltel$=bemerk$ 

930 IF 11te1 $ < >"" THEN REPEAT: LPRINT TAB(sp) MID$ 
1 $,1,we): titel$=MID$(titel$,we+l): y = y + zw: UN 
ite1$= " " 

940 LPRINT TAB(sp) STR ING$(we,"-" ) : y = y + zw 
950 OPEN #5 INPUT datei$ 

960 WHILE NOT EOF(#5) 

970 LINE INPUT #5, zeile$: 1=1+1 
980 IF 1 < von OR Obis THEN GOTO Sprung 
990 IF n r=1 THEN LPRINT TAB(sp) USING "####"; i; 
1000 REPEAT: LPRINT TAB(ll) MID$(zei1e$,1,br): zei 
ID$(zei1e$,br+1): y=y+zw: GOSUB prüfen: UNTIL 
e$= " " 

1010 LABEL Sprung 

1020 WEND 

1030 CLOSE #5 

1040 ende=l: GOSUB prüfen 

1050 IF nr=l THEN 11=11-5: br=br+5 

1060 IF 1f = 2 AND y<64 THEN REPEAT: LPRINT: y=y+zw: 
L y+zw=64 

1070 REM 64 Zellen bei DIN A4 / 66 Zellen bei Endl 
nzelblätte rn 
1080 GOSUB prüfen 
1090 GOTO format 
1100 

1110 LABEL prüfen 

1120 IF 1f=2 AND y+zw=64 THEN LPRINT TAB(sp) STRIN 
s=s+l: LPRINT TAB(sp+we-9) "Seite "; : 

T USING "###";s: y=zw: GOSUB Wechsel 
1130 IF y = 2w AND endeOl THEN LPRINT TAB(sp) STRIN 
, 

1140 RETURN 
1150 

1160 LABEL fehler 

1170 TEXT FEEO -3: TEXT CLEAR EOS: PRINT CHR$(7); 

1180 ALERT 1 TEXT “ " + datei$, " - 

- ", " Eine Datei mit diesem Namen ", 

st nicht auf der Diskette! " BUTTON RETURN 
Y M 

1190 RETURN 
1200 

1210 LABEL 11stpos 

1220 PRINT: INPUT " Spa 1tenpositiOn beim linken Ra 
-69): ", 11 

1230 IF 11=0 THEN 1 1 = 1 

1240 PRINT: INPUT " Breite des Programmlisting (Mi 
12): ", br 

1250 IF br = 0 THEN br = 80 

1260 TEXT FEED -4: TEXT CLEAR EOS 

1270 IF 11+br > 81 OR 1i<1 OR br<12 THEN ALERT 1 TEX 
Unzulässige Paramater ", " bei Position 

abe! " BUTTON RETURN " Nochmal ": GOTO listp 
1280 PRINT AT(16;5) USING "###“;11;: PRINT AT(40;5 
NG "###";br 
1290 RETURN 
1300 

1310 LABEL datum 

1320 da=ALERT 1 TEXT "Soll das aktuelle Datum über 
n "."werden oder nicht? Bei der Eingabe ","bi 
axlmal 12 Zeichen benutzen! "."Hier 3 zuläss 
O rmat-Be1spie1e: ","1 7/12/89 1 7.12.1989 17 

1989 " BUTTON RETURN "Aktuell", "Eingabe", 

n e" 

1330 IF da=1 THEN datum$=DATE$ 

1340 IF da=2 THEN PRINT CHR$(7);: PRINT: LINE INPU 
Itte nun das gewünschte Datum eingeben: ", d 
: IF LEN(datum$)>12 THEN TEXT FEED -2: TEXT C 
EOS: GOTO datum 
1350 IF da=3 THEN datum$="" 

1360 IF datum$=“" THEN PRINT AT(64;5) "OHNE" ELSE 
AT (64;5) "<JA>" 

1370 RETURN 
1380 

1390 LABEL kommentar 

1400 PRINT e1n$: LINE INPUT " Sie können nun einen 
entar eingeben: ", bemerkt: PRINT aus$ 

1410 IF LEN(bemerk$)<48 THEN PRINT AT(16;9) bemerk 
E PRINT AT(16;9) MID$(bemerk$,1,47)+" ..." 


1420 IF bemerkt:"" THEN PRINT AT(16;9) "-/-"+STRIN 
") 

RETURN 


1430 

1440 

1450 

1460 


LABEL nummern 

nr=ALERT 3 TEXT " Alle Einzelzeilen können ml 
en ", " Zei1en-Nummern ausgedruckt werden! 
Nummerierung ein- od. ausschalten? "BUTTON R 
"EIN", "AUS" 

1470 IF n r=1 THEN PRINT AT(16;7) "EIN" 

1480 IF n r = 2 THEN PRINT AT(16;7) "AUS" 

1490 RETURN 
1500 

1510 LABEL listbereich 

1520 1b=ALERT 1 TEXT " Das Listlng kann ganz oder 
auch in Teilen ausgedruckt ", " werden, 
rt auswählen! " BUTTON RETURN "Ganz-Listing" 
11-LIstlng" 

1530 IF 1b=1 THEN GOTO anzeige_lb 
1540 IF 1b=2 THEN PRINT: INPUT ” Listin 

oll beginnen mit Zeile: ", von 

1550 IF 1b=2 THEN PRINT: INPUT " Listin 

oll andauern bis Zeile: ", bis 

1560 IF von <1 OR b1s<l OR bis-von<0 THEN PRI 
: ALERT 1 TEXT " Unzulässiger Paramete 
bei der Zeileneingabe! " BUTTON RETURN 
": TEXT FEED -4: TEXT CLEAR EOS: GOTO 1 
LABEL anzeige_lb 


1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 


1650 
1660 
1670 
1680 
1690 
1 700 
1710 

1 720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 


PRINT AT(6 4; 7) " PRINT AT(64;8 

IF 1b=1 THEN PRINT AT(64;7) "GESAMT" 

IF 1b=2 THEN PRINT AT(64;7) USING "#";v 
PRINT AT(64;8) USING "#";bis 
RETURN 


gausd r 

gausd r 

NT CHR 
r " , 

" Noc 
1stbe r 

) " 

on ; : P 


LABEL 1istformat 

1f=ALERT 1 TEXT " Das Listlng kann fortlaufen 
r ", " seitenformatiert gedruckt werden! ", 
1 Wahl des Seitenformates bitte ", " auf Ein 
atteinzug umschalten! " BUTTON RETURN "Endlo 
at", "Seitenformat" 

IF lf=l THEN PRINT AT(40;7) "AUS" 

IF 1f=2 THEN PRINT AT(40;7) "EIN" 

RETURN 

LABEL drucker 

zw=l: z$=ei n$+" ( — "taust 

PRINT AT(2;12) COLOUR(IO) ein$+"DRUCKAUSWAHL: 

$ 

PRINT AT(2;14) e1n$+" "taust 

PRINT AT(2;15) ein$+" Drucker auf "taust 


PRINT AT(2;16) ein$+" 
PRINT AT(2;17) e1n$+" 
PRINT AT(2;18) e1n$t" 
PRINT AT(2;19) ein$+" 
PRINT AT(2;20) ein$ + " 
PRINT AT(26;12) 


< ON LINE > 


einste1 len! 


"taust 

"taust 

"taust 

"taust 

"taust 


1800 PRINT AT(26;13) 


1810 

PRINT 

AT(2 6;14) ". 

[03 

Abbruch zum Wah 

1820 

PRINT 

AT(2 6;15) ". 

Ci] 

Doppelte 

Druckb 

1830 

PRINT 

AT(26;16) ". 

C2) 

Doppe1te 

Z eiche 

1840 

PRINT 

AT(2 6;17 ) “ . 

[3] 

Kursiver 

Schrif 

1850 

PRINT 

AT(26;18) 

[43 

No rma1e r 

Schrif 

1860 

PRINT 

A T(2 6;19) ". 

[#] 

< L i s t i n g 

ausd ru 

1870 

PRINT 

AT(26;20) ". 




1880 

1890 

1900 

LABEL schriftmenü 
FOR z=14 TO 18 

PRINT AT(61;Z ) ” 





1910 IF dl=z OR d2=Z OR d3=z OR d4=z THEN PRINT AT 

) z$: 

1920 NEXT z 
1930 REPEAT 
1940 SW$=INPUT$(1) 

1950 UNTIL INSTR("01234#",sw$)>0 
1960 PRINT CHR$(7); 

1970 IF sw$="0" THEN GOTO format 

1980 IF swt—"1" THEN LPRINT CHR$(27)"W"CHR$(1);: d 
d4=0: GOSUB anpassung 

1990 IF sw$="2" THEN LPRINT CHR$(27)"w"CHR$(1)+CHR 
"A“CHR$(15);: d2=16: d4=0: zw=2 
2000 IF sw$="3" THEN LPRINT CHR$(27)"4";: d3=17: d 
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2010 IF sw$="4" THEN LPRINT CHR$ ( 27)" @ " ; : dl=0: d2 
3=0: d4=18: zw=l: GOSUB anpassung 
2020 IF sw$="4" THEN PRINT AT(61;19) z$;: LPRINT: 
ablauf 

2030 GOTO schrlftmenü 
2040 

2050 LABEL anpassung 

2060 REM Breitschrift bedingt halbe Zellenbrelte 1 
nd halben Tab-Wert *11' 

2070 IF pass=0 AND sw$="l" THEN merkl1=li: merkbr= 
1 =11/2: br=br/2: pass=l 

2080 IF pass=1 ANO sw$="4" THEN 11=merkli: br=merk 
erkl1=0: merkbr=0: pa3s=0 
2090 RETURN 
2100 

2110 LABEL Wechsel 

2120 ALERT 1 TEXT " Das Blattende ist erreicht! " 
Itte ein neues Einzelblatt ", " elnlegen! Na 
attwechse1 ", " die RETURN-Taste auswählen! 

TTON RETURN "FERTIG" 

2130 RETURN 
2140 

2150 LABEL betrachten 

2160 PRINT: PRINT TAB(2) COLOUR(IO) e1n$+ "L1s t- Au s 
"+aus$: PRINT 

2170 PRINT " Auf Tastendruck folgt nun die Bildsch 
sgabe der gewählten Datei!" 

2180 PRINT Achtung! Es wird nur der im Mengenfor 
ngezelgte Teil ausgegeben!" 

2190 PRINT " Das Listen kann mit der <Leertaste> u 
rochen und mit dieser auch" 

2200 PRINT " wieder durch erneutes Drücken fortges 
werden! Mittels <Esc> wird" 

2210 PRINT " der gesamte Listvorgang beendet und d 
te1 geschlossen! Mit <Ret>" 

2220 PRINT " wird das gewählte Mengenformat nochma 
f dem Bildschirm ausgeben!" 

2230 PRINT " Jede Tastenauswahl mup nach einer Men 
e erneut bestätigt werden!" 

2240 PRINT " Der Listvorgang kann mit <Esc> jetz 
h noch abgebrochen werden!"; 

2250 REPEAT: taste$=INPUT$ (1): UNTIL taste$<>" " 

2260 TEXT FEED -10: TEXT CLEAR EOS 

2270 IF taste$=CHR$(27) THEN RETURN 

2280 CLS #1: WINDOW #1 OPEN: STREAM #1 

2290 LABEL betr ac hten_ein 

2300 1=0 

2310 OPEN #5 INPUT datei$ 

2320 WHILE NOT EOF(#5) 

2330 LINE INPUT #5, ze11e$: 1=1+1 

2340 IF 1< von OR 1>bis THEN GOTO bet rachten_sprung 
2350 PRINT COLOUR (12) USING "####";i; 

2360 REPEAT: PRINT T AB ( 7 ) MID$ ( z e11 e$,1 , 63 ) : zeile 
$ ( ze i1 e$,64): UNTIL zeile$="" 

2370 t$=INKEY$ 

2380 IF t$=CHR$(32) OR t$=CHR$(27) OR t$=CHR$(13) 
PRINT: PRINT T AB(2) COLOUR(12) e1n$+" [Esc] 
ruch [ ] = weiter [Ret] = 

mal "+aus$: PRINT: REPEAT: taste$=INPUT$( 1); 

L taste$=CHR$(32) OR taste$=CHR$ ( 27 ) OR taste 
$(13) 

2390 

2400 IF taste$=CHR$(27) OR t as te$=CHR$ ( 1 3) THEN GO 
t rachten_aus 

2410 LABEL bet rachten_s pr ung 
2420 WEND 

2430 LABEL betrachten_aus 
2440 CLOSE 45 

2450 IF taste$=CHR$(13) THEN t$="": taste$=" ": GOT 
raohten_e1 n 

2460 IF taste$=CHR$(27) THEN WINDOW #1 CLOSE: STRE 
; RETURN 

2470 PRINT: PRINT TAB(2) COLOUR(12) ein$+" Listin 
Ende [Esc] = Abbruch [Ret] = 

mal "+aus$: PRINT 

2480 REPEAT: taste$= I NPUT$(1 ); UNTIL taste$=CHR$( 1 
taste$=CHR$(27) 

2490 IF taste$=CHR$(27) THEN WINDOW #1 CLOSE: STRE 
: RETURN ELSE IF taste$=CHR$(13) THEN t$="": 
$="": GOTO betrachten_e1n 
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Kopf oder Zahl? 

Die Programmierung eines 
einfachen Spieles 

Daß es in BASIC2 nicht schwer sein muß, ein Spiel zu 
programmieren, zeigen immer wieder unsere Listings. 
Wie man Ideen umsetzt, soll (als Beispiel) unser kleines 
Münzratespiel aufzeigen. 



ESC-Taste nach jedem einzelnen 
Münzwurf abgebrochen werden. An¬ 
sonsten ist das Programm selbsterklä¬ 
rend und braucht eigentlich nur einen 
Hinweis zur Bedienung der Maus: Der 
Mauszeiger muß sich innerhalb der ge¬ 
wählten Münze (Kopf/Zahl) befinden, 
da die im ’LABEL mausabfrage’ ge¬ 
setzten Abfragewerte recht eng ge¬ 
wählt wurden. Wer hier eine größere 
Toleranzbreite möchte, muß nur die je¬ 
weiligen Werte für ’xnT u. ’ym’ ein 
wenig abändern. 

(Rüben Rimmler/jb) 


Dieses Programm zeigt eine Umset¬ 
zung der gängigen Kopf-Zahl-Simula- 
tion in ein Spiel. Spielpartner ist Ihr 
PC! 


100 WINDOW #1 OPEN:WINDOW #1 FULL 
ON.STREAM # 1 WINDOW TITLE “Kopf oder Zahl" 

110 CLS:k=0:z=0:pc=0:sp=0 

120 PRINTiINPUT "Wieviel Runden wollen Sic spielen: 

",oft: PRINT 

130 FOR i= I TO oft 

140 PRINT:INPUT “Worauf wollen Sic setzen 
<K>/<Z> ? ",sp$;:PRINT 
150 w=RND:IF w>0.5 THEN 
k = k +1 :w$—“K": PRINT “Kopf". ELSE IF wC-0.5 
THEN z=z+ I :w$= “Z“:PRINT “Zahl“. 

160 IF UPPER$(.sp$) = w$ THEN sp = sp+ 1 ELSE 
pc = pc + l 
170 NEXTi 

180 PRINT:PRINT "Es fielen “+STR$(k)+ 

" mal Kopf und “+STR$(z) + " mal Zahl!" 

190 PRINT:PRINT “Ich habe “ + STR$(pc) + " Punkt/e 
und Sic “+STR$(sp) + “ Punkt/e!“ 

200 WHILE INKEY$ = “:WEND:GOTO 110 


Obiges Elf-Zeilen-Programm stellt be¬ 
reits eine Umsetzung dar, macht aber 
zugleich auch deutlich, daß erst die 
Grafikdarstellungen einem Spiel den 
richtigen Pep verschaffen! Durch die 
Einbindung einer Maus-Benutzung 
wird das Spiel dann nochmals attrakti¬ 
ver! So erhält auch ein relativ harmlo¬ 
ses Spiel seinen unerwarteten Spiel¬ 
reiz! 

Beim Programmstart kann für die Zahl 
der Spielrunden eine Grenze bestimmt 
werden. Wird diese mit < Return > 
ausgelassen, so läuft das Programm 
endlos weiter, doch kann es mittels der 


100 REM KOPFZAHL.BAS von Rüben Rlmmler 
110 

120 REM *** Hauptprogramm *** 

130 

140 LABEL fenster 

150 GOSUB Vorbereitung 

160 

170 LABEL Programm 
180 GOSUB Hintergrund 
190 GOSUB fragezeichen 
200 GOSUB regeln 
210 GOSUB eingabefeld 
220 GOSUB kleinköpf 
230 GOSUB kleinzahl 
240 

250 LABEL mausabfrage 

260 PRINT AT(10;11) CHR$(27)+"p"+"Kopf": PRINT AT( 

) "oder“: PRINT AT(14;15) "Zahl"+CHR$(27) + "q " 
270 REPEAT 
280 maus=BUTTON(1) 

290 UNTIL maus< >-1 

300 IF maus < >-1 THEN xm=XMOUSE: ym=YMOUSE 
310 IF xm>360 AND xm<425 AND ym>90 AND ym<120 THEN 
=1: PRINT CHR$(7): GOTO anzeigen: REM Kopf 
320 IF xm > 500 AND xm<565 AND ym>90 AND ym<120 THEN 
=2: PRINT CHR$(7): GOTO anzeigen: REM Zahl 
330 GOTO mausabfrage 
340 

350 LABEL anzeigen 
360 GOSUB Zufall 

370 PRINT AT(5;6) POINTS(16) COLOUR(12) CHR$(27)+" 
R$(runde)+" "+CHR$(27)+"q" 

380 IF wähl=z THEN sp=sp+l: PRINT AT(47;21) USING 
POINTS(16) COLOUR(13) MODE(2) sp-1;: PRINT AT 
1 ) USING POINTS(16) C0L0UR(12) M0DE(2) s 

390 IF wähl< >Z THEN pc = pc + l: PRINT AT(47;16) USING 
; POINTS(16) COLOUR(13) MODE(2) pc-1;: PRINT A 
16) USING POINTS(16) COLOUR(12) MODE(2) 

400 IF runde=oft THEN GOTO auswerten 
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410 REPEAT 

420 taste$=INPUT$(1) 

430 UNTIL taste$=CHR$(13) OR taste$=CHR$(27) 

440 IF taste$=CHR$(13) THEN GOSUB löschen: GOSUB f 
eichen: GOTO mausabfrage 
450 IF taste$=CHR$(27) THEN GOTO auswerten 
460 

470 LABEL auswerten 

480 PRINT CHR$(7);CHR$(7);CHR$(7); 

490 IF pc=sp THEN wert$=" Es steht unentschieden! 
500 IF pc>sp THEN we r t$=" Du hast leider verloren! 
510 IF sp>pc THEN wert$=" Prima, du hast gewonnen! 
520 satz$=STRING$(LEN(wert$),) 

530 aus=ALERT 0 TEXT " ", satz$, wert$, satz$BUTTO 
URN "Abbruch", "Nochmal", "Weiter" 

540 WINDOW #1 MOUSE 3 

550 IF aus=l THEN CLEAR RESET: END 

560 IF aus=3 THEN GOSUB löschen: GOSUB fragezeiche 
TO mausabfrage 

570 IF aus=2 THEN sp=0: pc=0: runde=0: GOTO progra 
580 

590 REM #** Unterprogramme *** 

600 

610 LABEL Vorbereitung 

620 CLOSE WINDOW 1: CLOSE WINDOW 2: CLOSE WINDOW 3 
SE WINDOW 4 

630 SCREEN #1 GRAPHICS 640 FIXED, 200 FIXED 
640 WINDOW #1 TITLE "KOPF Oder ZAHL" 

650 WINDOW #1 OPEN: WINDOW #1 FULL 
660 WINDOW #1 MOUSE 3 
670 RETURN 
680 

690 LABEL Hintergrund 

700 BOX 1;1,XVIRTUAL,YVIRTUAL COLOUR 13 FILL 
710 BOX 100;4350,7950,500 ROUNDED COLOUR 12 FILL 
720 MOVE 300;4500: PRINT COLOUR(O) M0DE(2) "Eingab 
linker Maustaste Weiter mit [Ret] 

de mit [Esc]" 

730 BOX 100:100,7950,4100 ROUNDED COLOUR 12 WIDTH 
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740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 


1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 


1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 


1420 

1430 


CIRCLE 2000;2050,1500 COLOUR 10 FILL 
CIRCLE 2000:2200,1500 COLOUR 2 FILL 
RETURN 


LABEL regeln 
SET MODE 2 
PRINT AT(46;6) 
PRINT AT(46;8) 
PRINT AT(46;9 ) 
PRINT AT(46; 10) 
PRINT AT(46;11) 
PRINT AT(46; 12) 
PRINT AT(46;13) 
PRINT AT(46;14) 
PRINT AT(46;15) 
PRINT AT(46;16) 
PRINT AT(46;17) 
PRINT AT(46;18) 
PRIJJT AT ( 46 ; 19) 
PRINT AT(46;20) 
INPUT AT(55;21 ) 
SET MODE 1 
RETURN 


** SPIELREGELN **" 
Das Spiel simuliert den Wurf' 
mit einer Münze. Es kann auf" 
"Kopf od. Zahl gesetzt werden, 
"was über Anklicken der linken 
"Maustaste geschieht. Es wird 
"allein gegen den Computer ge= 
"spielt! Jeder neue Münz-Wurf 
"wird durch [Ret] eingeleitet, 
"[Esc] führt zum Spielabbruch! 
"Sie können nun die Anzahl der 
"gewünschten Spiel runden ange = 
"ben oder mit RETURN auf diese 
"Festlegung völlig verzichten: 
", oft 


LABEL elngabefeld 

BOX 4500:200,3300,3800 COLOUR 13 FILL 
PRINT AT(45;6) POINTS(16) COLOUR(12) CHR$(27 
+" E 1 n g a b e : "+CHR$(27)+"q"; 

PRINT AT(45;14) P0INTS(16) C0L0UR(12) CHR$(27 
+ " P C 15 12 : "+CHR$(2 7) + "q"; 

PRINT AT(54;16) POINTS(16) C0L0UR(12) MODE(2) 
n k t e 1 ; 

PRINT AT(45;19) POINTS(16) COLOUR(12) CHR$(27 
+ “ S p 1 e 1 e r : "+CHR$(27) + "q" ; 

PRINT AT(54;21) POINTS(16) COLOUR(12) MODE(2) 
n k t e"j 
RETURN 

LABEL klein köpf 

CIRCLE 5000;2800,500 COLOUR 10 FILL 

CIRCLE 5000;2900,500 COLOUR 2 FILL 

SHAPE 4700;2-900, 4850;3050, 4850;3200, 5050;3 

5250:3200, 5300:2950, 5250;2600, 4900;2600, 4 

730, 4950:2790, 4850;2850, 4850;2900 COLOUR 9 

CIRCLE 5000;3050, 50 COLOUR 1 FILL 

RETURN 

LABEL kleinzahl 

CIRCLE 6800:2800,500 COLOUR 10 FILL 

CIRCLE 6800;2900,500 COLOUR 2 FILL 

SHAPE 6500;2900, 6800;3200, 7000;3200, 7000;2 

6800;2650, 6800;3050, 6650;2900 COLOUR 9 FILL 

RETURN 

LABEL zufal1 
runde=rundet 1 
Z=TIME MOD 2 +1 

IP z=l THEN GOSUB löschen: GOSUB großkopf 
IF z=2 THEN GOSUB löschen: GOSUB großzahl 
RETURN 

LABEL löschen 

CIRCLE 2000:2200, 1300 COLOUR 2 FILL 
RETURN 

LABEL großkopf 

SHAPE 1000;2100, 1450;2550, 1450;3000, 2050;3 
2650:3000, 2800:2100, 2650;1200, 1600:1200, 1 
590, 1750;1770, 1450;1950, 1450;2100 COLOUR 9 
CIRCLE 1800:2500, 100 COLOUR 1 FILL 
RETURN 

LABEL großzahl 

SHAPE 1000;2100, 1900;3000, 2500;3000, 2500;1 
1900:1350, 1900;2550, 1450;2100 COLOUR 9 FILL 
RETURN 

LABEL fragezeichen 

SHAPE 1300;2900, 1800:3400, 2300;3400, 2800;2 

2800:2400, 2300;1900, 2300;1400, 2000;1400, 2 

900, 2500;2400, 2500;2900, 2300;3100, 1800;31 

600;2900 COLOUR 12 FILL 

CIRCLE 2150:1100,150 COLOUR 12 FILL 

RETURN 
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I—Kleinanzeigen 


Biete Software 


DATSTYLE für CPC 6128-USER 

Das Softwarepaket auf 3"-Disk. 
zur semiprofessionel. Analyse 
von Funktionen und Datenfiles. 

Für DM 156.- inkl. Verp./Vers. 
erhalten Sie mit DATSTYLE: 

* Funktionsinterpreter 

* Graphische Darstellung von 
Funktionen und Datenfiles 

* Fouriertransformation 

* Best-Fit-Berechnung 

* DATSTYLE-Utilities 

Best. (Nachn.) und kostenloses 
Info (frankierter Rückumschl.) 
»•••Appel Special Software**** 

I. d. Plaisir 37,7150 Backnang G 


Astrologie mit Computer 
International geschätzte Astro¬ 
logenprogramme, professionelle 
Deutungsprogramme, Lernprogramme 
für Anfänger, Handschriftanalyse, 
Bio-Rhythmus, Astro-I-Ging. 

Info gegen DM 2,- in Marken. 
Astron,K.W.Bonert,Peter-Marqu.Str.4a 
2000 Hamburg 60 G 


CPC-PUBLIC-DOMAIN-SOFTWARE 
LISTE 2 x 60 PF bei: Peter Breuker 
Rektenstraße 10,4930 Detmold 1 


?? Sind Sie der geb. Broker ?? 
Börsensim. f. PCW bis 5 Spieler. 

Simul. u.a. pol. Einfluß-Lombart 
Steuer-Krisen-Charts-keine Zu- 
fallssim- inkl. 4000 Zeil. Pascal¬ 
source. Info geg. fra. Rückum. 

Frank Dietrich, Karolingerstr. 4 
6507 Ingelheim G 


Super-Datei-Verwaltung CP/M + 
für CPC und JOYCE / geeignet 
für den professionellen Ein¬ 
satz in Kleinbetrieben. 67 DM 
0 40/58 45 31/PGiro 33 98 96-203 


Wirtschaftliche Programme 

für die Arztpraxis auf 

dem Schneider CPC, Joyce, PC 

Fa. EFFEKTA, Am Wiggert 9c 

4500 Osnabrück, Tel. 0541/442416 G 


EXPO-SOFT 

Immer aktuell und superschnell 
Public Domain & Free-Software 
IBM/Schneider PC + Kompatible 
Disk, ab DM 1,80 - Gratisinfo 
S. Schülke, Wuppertaler Str. 130 
5650 Solingen 1, Tel.: 0212/5912 08 G 


Dias ordnen mit Computer 

CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W. Grotkasten, 

Birnenweg 6,7060 Schorndorf 
Tel. 07181/42846 G 


BUSINES-STAR für CP/M +, NP 298, - 
m. Anford.-Karte f. Sich.-Kopie 
Handb. + 3"-Disk. 120,-, 02263/61 44 


Anwenderprogr. für CPC und PC 
+ neues Wirtschaftssp. für CPC 
A. Hust, Deichstr. 60, 2876 Berne 


ACHTUNG II ERWACHSENE 

10 Disk. 5 1/4"oder 3 1/2" mit delikaten 
Programmen f. IBM PC/Kompatible 
Nur DM 50,- VS/Bar. M. Karbach 
Remscheiderstr.18, 5650 Solingen G 


Public Domain & Free-Software 
IBM/Schneider PC + Kompatible 
Disk, ab DM 1,80 - Gratiskatalog 
M. Karbach, Remscheiderstr. 18 
5650 Solingen 1, Tel. 0212/43140 G 


WAHNSINN III 

Schneider-CPC-Originalsoftware 
bereits ab 3 (!) DM I Liste 
gratis von: Dieter Köhler, Brand- 
stätterstr.26,8501 Cadolzburg. 


MIT DEM CPC 

CNC-MASCHINEN PROGRAMMIE¬ 
REN, kompI.System mit Werkzeugka¬ 
talog, Simulation, Geometrie 
INFO: F.KOPP, HOCHFELDWEG 24 
7924 SONTHEIM G 


VERKAUFE ANWENDERPROGRAM¬ 
ME UND SPIELE FÜR CPC AUF 
KASSETTE. NÄHERES UNTER 
TEL. 062 51/68956 


CPC & JOYCE PUBLIC DOMAIN 

Ein Info ist für 2 x 100 erhältlich 
PDI, Pf 11 18, D-6464 Linsengericht G 


PD-SERVICE-LAGE bietet Ihnen: 
Public-Domain & Shareware z.B.: 
über 600 I DEUTSCHE PROGRAMMEI 
über 2801 Disk PD-SPIELE und 
neuste INTERNAT. Programme III 
Kopierkosten: 4.50-2.70 DM!! 
Alleinvertrieb PC-TEXT 2.0 & 
PC-ADRESS 3.0 v. ROLAND OTTER! 
Kat. f. IBM/kompat. g. 1,80 Porto 
PD-SERVICE-LAGE: Bernd Schulz 
Hasselstr.38,4937 Lage/Lippe 
Auch alles auf 3,5" lieferbar! 

NEU bei uns: Low-Cost-Software! G 


CPC bzw. PC-International von An¬ 
fang bis heute (Heft 3/85-6/89) 
gegen Höchstgebot 0 73 07/2 38 55 


Joycler günstig: Super Spiele 
(Batman usw.)je25,- DRDraw/DRGraph 
je 59,- Promt + Druck 45,- Mailing 
System 59,-, Tel: 05232/661 44 


GELEGENHEIT! 

Verkaufe wegen Systemwechsel 
CPC 6128 + Farbmonitor; Literatur; 
Fachzeitschriften; Software. 
Kostenlose Liste anfordern von: 
Wilhelm Ridders jun., Fasching¬ 
weg 8,8212 Übersee/Feldwies 


CPC 464-6128 SPITZENSOFT ZU 
KLEINEM PREIS 

SPIELE u. ANWENDERPROGRAMME 
ENTWICKLUNG v. ANWENDERSOFT! 
LISTE u. INFO v. MR. HAPPY 
PF 112052, 8900 AUGSBURG 
TEL. 0821/465711 


VERK. MEIN ZEICHENPROG. CPC MIT 
VIELEN FUNKTIONEN. DM 60. INFO 
GEGEN FRANK. UMSCHLAG, BESTEL¬ 
LUNG, GEGEN VORKASSE (VERRECH¬ 
NUNGSSCHECK), STEFAN SCHMIDT, 
AM BERG 4, 6301 BIEBERTAL 4 


PCW: Matchday/A. Shock/ATC + Belle 
H. over Heels/FB Boxing/Bounder 
Batman/FairlTSFH/CHESS je 30 DM 
Starcros DM 50/Business Star 
DM 200/Prompt DM 50/08333/81 01 


Biete Hardware 


CPC 6128 GRÜN + 51/4ZOLLDOB- 
BERT, IN LAUFWERK MIT EPROM 
UND PROTEXT + DMP 2000 + 
DBASEII + DIVERSE PROGRAMME, 
VB 2000 DM, TEL. 09241/81 52 


CPC 6128/Farbmonitor + DMP 2000 
+ 20 Disks + Fachzeitschriften 
Schneider Internat./Magazin 
85-89 Kompl. + Softw. 1500 DM, 
VORTEX F1-X 400 DM, dBASE, Word¬ 
star, Multiplan je 98 DM, "Mehr 
Erfolg mit CPC" + Disks 200 DM, 

Tel. 05723/6677 ab 16 Uhr 


CPC464/Farbe + DD1 + Zubehör 
+ Bücher, Zeitschriften + Software 
VB 850,-, Tel.040/5 2791 96 


Gebrauchtcomputer mit Garantie 
AMSTRAD - SCHNEIDER - PEACOCK 
* CPC * JOYCE * PC * XT * AT * 
HARDWARE-SOFTWARE-LITERATUR 
Ersatzteile & Reparaturdienst 
ALLES zu echten Superpreisen. 
Ständiger Ankauf 
Höchstpreise für Ihren "ALTEN" 
bei Computer-NEUKAUF II! 

Katalog anford. (2,- DM in Marken) 
EDV-CLOOTS, 5132 Übach-Palenberg 
Zeisstr. 7, Tel.: 02451/46608 G 


WOLLEN SIE IHREN COMPUTER 
VERKAUFEN ? ODER EINEN GE¬ 
BRAUCHTEN KAUFEN ? RUFEN SIE 
AN I PRIVATE COMPUTER VERMITT¬ 
LUNG, HARD- UND SOFTWARE 
TEL. 0621/665599 G 


SPRACH-Synthesizer (+ Progr.) DM 
99,-, Modulator, color (CPC an Fernse¬ 
her) DM 89,-, Thermometer, + Progr., 
f. CPC (2 Fühler max.) DM 59,-, Ge- 
räusch-Aufzeichner (+ Progr.) DM 69,- 
zeichnet kleinste Geräusche auf üb. 
24h/Geräte geeignet für CPCs (Disk & 
Tape) Gehäuse inklusiv, Katalog gra- 
tis/CNC, Stellinger Weg 43/5, 

2000 Hamburg 20 G 


Lichtgriffel nur DM 49,- 

Versand gegen Scheck/Nachnahme 
Info gratis! Computer angeben! 
Anschluß an jeden (!) Computer 
möglich. Standardversion für 
Amstrad lieferbar. Firma Klaus 
Schißlbauer, Postfach 1171R 
8458 Sulzbach, Tel.: 09661/6592 
oder 0941/999915 bis 21 Uhr G 


AMSTRAD PCI 640 HD20 20MB FESTP. 
EGA-FARBM. 2000,- DM VB MIT 
DRUCKER NEC P6 2700,- VB, 
NEUWERTIG, TEL. 06394/402 


JOYCE PCW 8512 
+ DRUCKER, HANDBÜCHER, 

25 LEERDISKETTEN, 8 FARBBÄNDER 
VB DM 900,- 
TEL 042 22/14 20 


Suche Hardware 


HARDDISK FÜR JOYCE-PLUS GE¬ 
SUCHT, ANGEBOTE TEL.061 39/6663 


SUCHE DEFEKTE CPCs, Keyboard, 
Farbmonitor, Floppy, 051 31/55407 


Suche für CPC 464 Floppy DDJ1 
inkl. Controller, Tel. 0 72 45 73 46 


Verschiedenes 


Disketten-, Datenkonvertierung 
JOYCE, CPC auf MS-DOS, ATARI 
Bernd Drost, Schulstr. 67 
6382 Friedrichsdorf, Tel. 06715/604 G 


PC 512/1640 User-Club sucht noch 
Mitglieder. Mtl. Zeitschrift, Soft¬ 
ware etc. Info von R. Knorre, 

Pf 20 01 02, 5600 Wuppertal 


SYSTEMWECHSLER! Joyce & CPC 3" 
auf MS-DOS-Formate preiswert! 
Ferner: verk. Joyce-Hard/Soft/ 
Bookware. Info: H. Langbein 
Nienbergen 28, 3134 Bergen 


CPC-INTERN. 3/85-12/88 
DM 150,-ab 17h 0208/669368 


SENSATIONEN: von f. i. t.: 100 
farbige 5,25" Disks mit Box (!) 
nur 89,95 DM! Farbb. LC-10 = 5,95 
DM, EB-Einzug = 189,- DM: St. Sedla- 
czek, f. i. t.-Computer-Zubehör- 
Vertrieb, Kielshöfchenl, 5063 
Overath, Tel.: 0 22 04/7 3320 G 


Club 


JOYCE-COMPUTERCLUB 
Ausführl. Info gegen Rückporto 
von: J. Berghof, Roseggerstr. 5 
5600 Wuppertal 2 


Der Computerclub "SYNTAX-TERROR" 
sucht noch Mitglieder. Informations¬ 
und Erfahrungsaustausch stehen bei 
uns an der ersten Stelle. Dazu gibt's eine 
Clubzeitschrift und vieles andere 
mehr. Interessiert? Dann Info 
anfordern gegen 2,-DM in Briefmarken. 
Die Kontaktadresse lautet: 

ROBIN RICHTSTEIGER, SUDE- 
TENSTR. 3,3501 SCHAUENBURG 1 


Schneider PC User Club 
Postfach 1111 
8216 Reit im Winkel 
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Berlin 


Ihr Computer-Partner für 



PC's/AT's-C 64/128 
Amiga-PCW 
Computer-Drucker 
Zubehör-Software 
Spiele-Service 


W. Müller & J. Kramke GbR 
Schöneberger Slr.S • 1000 Berlin 42 
Tel. 030-752 91 50/60 
Mo.-Fr. 10-18 Uhr. Sa. 10-13 Uhr 
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AMSTRAD/SCHNEIDER 

T andon 



1/1 
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Holländische Str. 121.3502 Vellmar. Tel.: 0561/8281 60 
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AUTORISIERTER FACHHÄNDLER DER MARKEN : 


AM8HAD 


.Schneider stfcCMT'- VICTOR 

PfMWEfa'tvsm COMPUTER 
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Victor ■ CbTipulBr 
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niilcr Sie unj an! Fragen Sie nacn unserem afciuellon Pielsl 
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unikat COMPUTERVERTRIEB 

MUHLENSTR. 2 D - 3040 80LTAU 
TEL. (O 81 »1» 1 32 44 - TAO UND NACHT 


Basel 


AMSTRAD/SCHNEIDER 

Vertragshändler 

Computer Knüppel AG 

Computer und Büromaschinen 

Riehenring81 (MUBA) 

4058 Basel 

Telefon (061)691 1262 
Fax (061)6910051 


Anzeigenschluß 
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von 

PC International 
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bei einer Spaltenbreite von 58 mm. 

Einträge möglich 

mindestens 6 x innerhalb eines Insertionsjahres 

Nähere Informationen: 

DMV-Verlag 
Wolfgang Brill 
Telefon (05651) 8009-51 
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Gehen Sie mit Ihrem CPC auf Goldsuche. Ein 'Jump and Run'-Spiel mit Raffi¬ 


nessen 



CPC-PRÜGRAMME: 


Ein Programm, mit dem Sie rechnen kön¬ 
nen. Eine Tabellenkalkulation mit vielen 
Funktionen und Hilfen. 


Es ist nicht alles Gold, was glänzt. Die Er¬ 
fahrung werden Sie in unserem CPC- 
Spiel machen müssen. Denn dort heißt 
es: "Aufgepaßt und zugefaßt". 


Blitzschnelle Reaktionen sind erforder¬ 
lich, wenn man sich die "goldigen" 
Stücke aufsammeln möchte. 


BERICHT: 


Für Sie getestet: der Amstrad-AT 2286. 
Was er kostet und leistet, erfahren Sie in 
unserer nächsten Ausgabe. 



Im Test: Der Amstrad-AT 2286 


Roll over Beethoven oder Wie funktio¬ 
niert die Musikerzeugung auf dem Com¬ 
puter. Informative Grundlagen über die 
sinnigen Töne. 


PC: 


Die Sache mit dem Dreh - Rubik'sCube. 
Mit unserem BASIC2-Programm kom¬ 
men Sie dem Knobel-Würfel auf die Spur. 



Geben Sie Ihrem Würfel den letzten Dreh. Mit Ru- 
bik's Cube und BASIC2 auf dem PC kein Problem 


Zeichnen und konstruieren Sie gerne? Ja, 
dann können Sie mit unserem Mini- 
CAD-Programm und BASIC2 Ihren PC 
auf Hochtouren bringen. Viele technische 
Feinheiten unterstützen Sie dabei. 

Als Beispiele wären zu nennen: Zeichnen 
von zweidimensionalen Objekten, die in 
dreidimensionale Vektorgrafik umge¬ 
wandelt werden kann. 


TIPS & TRICKS: 


Von 'Hires' - die Problematik der ver¬ 
schiedenen Grafikauflösungen auf einen 
Streich - bis hin zum 'Ink-Editor' - die 
elegante Hilfe zur Farberkennung - bie¬ 
ten wir Ihnen eine Fülle von Tips. 

Nicht zu vergessen, die interessanten 
1-kByte-Programme zum schnellen Ab¬ 
tippen und Sammeln. Haben Sie auch Ih¬ 
ren Beitrag dazu geliefert? Nein, dann 
sollten Sie es aber schleunigst tun. Denn 
hier bekommen Sie 100,- DM für jedes 
veröffentlichte Programm., 


PCW: 


Unter CP/M ist die Einstellung von ver¬ 
schiedenen Sprachen möglich. Aber was 
ist, wenn Sie Symbole oder Zeichen än¬ 
dern wollen? Wissen Sie nicht? Dann soll¬ 
ten Sie zu unserem Charakter-Designer 
greifen. Denn hier bekommen Sie die Hil¬ 
fe, die Sie brauchen. 

Balkendiagramme unter LocoScript sind 
ja nichts Neues, aber wie ist es mit einem 
Programm unter LocoMail? Diese hoch¬ 
interessante Angelegenheit sollten Sie 
sich nicht entgehen lassen. 

Verschiedene Schriftgrößen auf dem 
PCW-Drucker. Joyprint macht es mög¬ 
lich. Wie das geht, lesen Sie in unserer 
nächsten Ausgabe. 
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r Ihren 
in echter 3D-Qualitätü 


3D-Light Cycle: 


Das allseits bekannte und beliebte TRON-Spiel für zwei Personen jetzt wie im Film!! 
Erleben Sie dieses spannende und abwechslungsreiche Actionspiel jetzt in einer 
neuen Dimension. Verblüffende und noch nie dagewesene 3D-Effekte sowie 
professioneller Sound lassen Sie in eine völlig andere CPC-Welt versinken. 

Diesen Super-Hit muß man ’live’ gesehen haben. 


3D-Labyrinth: 

Das beste Labyrinthspiel jetzt in Super 3D-Quaiität. Auf der Suche nach Hinweisen zum 
Passwort, das den mächtigen Zentralcomputer lahmlegen kann, lauern tausend 
Gefahren auf Sie. Die räumlich perfekte 3D-Darstellung, superschneller Grafikaufbau und 
viele Überraschungen garantieren eine völlig neue Art von Spielvergnügen. 

Best.-Nr. 1369 

Voraussetzungen: 

CPC 464/664/6128 mit Farbmonitor. Das Spiel 
3D-Light Cycle kann ohne 3D-Brille auch auf 
Grünmonitor gespielt werden, Darstellung dann in 2D. 


49,- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes; 
Inland: Ausland: 

Einzelpreis 49,- DM Einzelpreis 49,- DM 

zzgl. Versandkosten 4,- DM zzgl. Versandkosten 6,- DM 

Endpreis 53,- DM Endpreis 55,- DM 
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Die AMSTRAD Grafik-Profis 



PC 2086 S. D oder HD 30 mit 12" MD, 

14" CD, 12" HRCD oder 14" HRCD-Monitor 


Peripherie 

Amstrad - einer der größten 
PC-Hersteller der Welt - 
liefert professionelle PCs im 
modernen Design unter 
MS-DOS, OS/2 und UNIX, 
VGA-Monitore, Drucker und 
LAN-Netzwerke für bis zu 
64 Arbeitsplätze. 


Standard MS-DOS-PC mit 
640 KB Arbeitsspeicher und 
schnellem 8086-Prozessor 
mit 8 MHz. 5 1/4" Disketten¬ 
laufwerk und 30 MB Hard¬ 
disk optional. Eingebauter 
Grafikadapter mit 4 verschie¬ 
denen Modi: monochrom 


Wo? 

'Beim AMSTRAD-Fachhandel 
selbstverständlich. 


ab sofort 
optional mit 30 
MB Harddisk 


(IBM-Standard-Grafik), Her¬ 
cules (720x348 Punkte), 
CGA- und EGA-Farb-Grafik. 
Tastatur mit abgesetztem 
lOer-Block und Funktions¬ 
tasten. Wahlweise ergonomi¬ 
scher schwarz/weiß-Monitor 
oder EGA-Farbmonitor. 


Amstrad GmbH 
Robert-Koch-Straße 5 
6078 Neu-Isenburg 
Tel: 06102/300-215/225 


AMSTRAD PC2086 


IBM PS/2 Modell 30 kom¬ 
patibler PC mit echten 16-Bit, 

8086- Prozessor und 8 MHz. 

8087- Coprozessor optional. 
640 KB RAM. 3,5"-Laufwerk 

720 KB. Optional 30 MB 
Harddisk mit Interleave-Fak- 
tor 1:1. VGA-Grafik, EGA-, 
CGA- und Hercules-kompati- 
bel. 4 verschiedene VGA- 
Monitore nach Wahl. Win¬ 
dows 2.03, Maus und GW 
BASIC. 3x8 Bit Erweiterungs¬ 
plätze von außen zugänglich. 


Superschnelle 

VGA-Grafik 

Die aktuellste Grafik-Techno¬ 
logie als Büro-Standard. 
640x480 Punkte Auflösung. 

Amstrad 
VGA -Monitore 

/\\ Farbmonitor mit 

262.144 darstellbaren 
Farben. Monochrom-Monitor 
mit 64 Graustufen. Hervorra¬ 
gender dot-pitch (Farb- 
punktabstand) ab 0,28 mm. 
Hohe Bildwiederholfrequenz 
von 70 Hz. PC12MD 12" 
Monochrom-, PC14CD14" 
Color-, PC12HRCD 12" Color 


— 




IBM PS/2 
Modell 30 
kompatibel 


High-Resolution- und 
PC14HRCD14" Color High- 
Resolution-Monitor. 

Adapter 

Spezieller Adapter zum 
direkten Anschluß eines 
externen 5 1/4"- oder 3 1/2"- 
Laufwerks oder Streamer. 
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PC 1640 EGA SD, DD oder HD 30 
PC 1640 Mono Here. SD, DD oder HD 30 


AMSTRAD PC 1640 








































